公司想將已開發的各小系統整合在一個畫面，我試著建立一個form再經由form上的buttom執行但會出現錯誤小系統是用mdiform寫的執行起來會有錯誤嗎 Main(fsNormal)-- --->fmhps(mdiform)->各項維護作業程式 --->fmhpn(mdiform)->各項維護作業程式 --->fmhph(mdiform)->各項維護作業程式 --->fmhpq(mdiform)->各項維護作業程式 如此的架構

您好： 一個方式是將小系統的程式碼ADD到PROJECT裡面，這樣就可以整合成衣個專案，另一種方式可以將小系統做成執行檔，在藉shellexecute去呼叫 ~~應無所住而生其心~~

哪裡有範例可參考嗎 感謝

yx_huang77大大，您好！请以terrychen大大的提供的方法为蓝本： ①开启Delphi上的Project---->Add to Project: 将Unit文件加入进专案里.可以方便的通过Project Manager来对各个Unit进行管理，修改。 ②用ShellExecute()来呼叫可执行档 ShellExecute(Application.Handle,nil,PChar('维护作业程式.exe'),PChar(''),PChar(ExtractFilePath(Application.ExeName)),SW_MAXIMIZE) 您试试看 < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

為何出現此訊息呢 [Error] Main.pas(185): Undeclared identifier: 'ShellExecute'

要 use ShellAPI 才能使用 ShellExecute !!

再請問執行小系統後要將主菜單關閉小系統關閉時要重新開啟主視窗這要如何控制

yx_huang77大大，您好！请看看这样能否达到您的要求: < class="code"> ...... use MdiForm_Unit; ...... procedure TMainForm.Button1Click(Sender: TObject); begin MdiForm := TMdiForm.Create(Application); MdiForm.Left := MainForm.Left (MainForm.Width - MdiForm.Width) div 2; MdiForm.Top := MainForm.Top (MainForm.Height - MdiForm.Height) div 2; MdiForm.ShowModal; MdiForm.Free; end; 以这样的方式建立,当主视窗在MdiForm关闭后会重新開啟.

===============
人生在勤,不索何获? 
===============

------
人生在勤，不索何获？

bigdogchina你好，如果照你的方法會出現下列錯誤，其實剛開始小地也是照你說的方法寫的

引言: 再請問執行小系統後要將主菜單關閉小系統關閉時要重新開啟主視窗這要如何控制

您好： mdi表單不是主視窗跟子視窗並存嗎？怎會需要重新開啟主視窗 ~~應無所住而生其心~~

Main(fsNormal)-- --->fmhps(mdiform)->各項維護作業程式 --->fmhpn(mdiform)->各項維護作業程式 --->fmhph(mdiform)->各項維護作業程式 --->fmhpq(mdiform)->各項維護作業程式 (子系統) 是這樣的架構

您好：  

   Try
    MainForm.Hide;
    childForm:= TchildForm.Create(Application);
    childForm.ShowModal;
  Finally
    childForm.Free;
    MainForm.Show;
  End;

~~應無所住而生其心~~

引言: === ...... use MdiForm_Unit; ...... procedure TMainForm.Button1Click(Sender: TObject); begin MdiForm := TMdiForm.Create(Application); MdiForm.Left := MainForm.Left (MainForm.Width - MdiForm.Width) div 2; MdiForm.Top := MainForm.Top (MainForm.Height - MdiForm.Height) div 2; MdiForm.ShowModal; MdiForm.Free; end; === 補充說明: 以上 MainForm 是 主Form MdiForm 是 子Form 要注意的是 主Form的屬性 FormStyle 要設為 fsMDIForm 子Form的屬性 FormStyle 要設為 fsMDIChild 我是使用 Delphi 5.0 , 它有提供 MDI Form 範例. 點選 File->New...->(New Items)按 Projects 頁次->選 MDI Application fat eat moon fat eat moon

------
才疏學淺