假設我程式有二個form(form1,form2)，而我在程式中要去create form2，於是我用了frm2 := Tform2.Create(nil);而我不曉得這個指令除了去產生一個form外，還會去執行那些東西??? 或者我應該怎麼讓它create後再去執行別的東西???

Hi benson5033,    

  frm2 := Tform2.Create(nil); // 會去執行 TForm2.FormCreate 並建立 Form2
  frm2.Show; // 會去執行 TForm2.FormShow & TForm2.FormActivate，並將 Form2 秀出來

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

補充一點。 frm2 := Tform2.Create(Application); //建立 表單 TForm2 >或者我應該怎麼讓它create後再去執行別的東西??? 您可以在 Fm2.OnCreate 事件中處理或者直接在 frm2 := Tform2.Create(Application); ....... 這邊處理。{ 例如： Frm2.label1.caption := 'hello'; 最後在依據要求 使用 Showmodal or Show; Frm2.Showmodal 將會使得其他表單無法被 WM_ACTIVATE ， 換而言之；您不能使用其他表單的物件。 並強迫若關閉 Frm2 後，才能執行下一步驟。 使用 Frm2.Show，可以直接對其他視窗操作或者 WM_ACTIVATE。 相對的在程式碼上面，要顧慮的東西也比較多。

可是它沒有oncreate事件，只要一執行完frm2 := Tform2.Create(nil)後，它就去執行一個function, 如下 function NewWndProc(hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; StdCall; begin if Msg = Message then begin if IsIconic(Application.Handle) then ShowWindow(Application.Handle, SW_RESTORE) else SetForegroundWindow(Application.Handle); {ShowMessage( 'Got Message:[' PChar(lParam) ']' ) ;} Result := 0; end else Result := CallWindowProc(PrevWndProc, hWnd, Msg, wParam, lParam); end; 我也不曉得這是幹嘛的??? 有人可以告訴我發生了什麼事

不懂！並不解？ 怎麼會沒有 OnCreate 事件。Tform2 哪裡來的！ Tform2 到底是 Tform 還是 TFrame 啊！~~~ 如果您要 DEBUG 建議在，OnCreate 中設中斷點。 還有您那段程式碼，哪來的？

引言: 不懂！並不解？ 怎麼會沒有 OnCreate 事件。Tform2 哪裡來的！ Tform2 到底是 Tform 還是 TFrame 啊！~~~ 如果您要 DEBUG 建議在，OnCreate 中設中斷點。 還有您那段程式碼，哪來的？

Tform2 是 Tform，程式中並沒有oncreate，而那段程式是copy出來的，也就是oncreate後執行的function，因為我在學，所以看別人的程式的。

Hi benson5033 你好: 這個程式去宣告了一個message的程序, 看了裡面的意思應該是不讓他縮到最小, 且一直在最上層顯示. Message的程序宣告時後面會有Message的關鍵字, 你到上面的宣告找一下, 看他是讀哪一個Message 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.