想請教各位高手: Delphi 指令: Form1.show 可不可以把 Form1 帶入變數後改寫為以下方式 MyForm:='Form1'; MyForm.show;  目前這兩行指令不能執行. 所以想知道在Delphi中怎麼才能讓這樣的需求實現? 謝謝各位高手.    UU 

改成這樣吧 MyForm:= TForm(TComponentClass('TForm1'); MyForm.show; @@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@

不可以把 Form1 帶入變數 這樣會有問題的 如果要達到你說的 是沒有辦法的 一定要這樣 procedure TForm1.Button1Click(Sender: TObject); var Myform : TForm; begin Myform := TForm1.Create(Self);//要用create 去開 Myform.Show; end; end. 回首來時路 也無風雨也無晴~~@.@ 發表人 - T.J.B 於 2002/09/27 15:16:52 發表人 - T.J.B 於 2002/09/27 15:18:05

------
天行健
君子當自強不息~~@.@

DEAR 版主:       謝謝版主那麼快地回覆給我哦.      那這個使用完.FORM可以FREE掉嗎?      那myform 要宣告成什麼形態呢??       麻煩你啦. MANDY ************************************************

引言: 改成這樣吧 MyForm:= TForm(TComponentClass('TForm1'); MyForm.show; @@~~飛翔在天際的精靈~~@@

發表人 - mamdy 於 2002/09/27 15:31:11

引言: 想請教各位高手: Delphi 指令: Form1.show 可不可以把 Form1 帶入變數後改寫為以下方式 MyForm:='Form1'; MyForm.show; 目前這兩行指令不能執行. 所以想知道在Delphi中怎麼才能讓這樣的需求實現? 謝謝各位高手. UU >< face="Verdana, Arial, Helvetica"> 參考這篇，不過有點麻煩 http://forum.vclxx.org/topic.php?TOPIC_ID=2426&FORUM_ID=3&CAT_ID=2&Topic_Title=%A6p%A6%F3%A9I%A5s%A5%F4%B7N+Form&Forum_Title=Misc

人生有夢，逐夢而行。 人若為善，福雖未至，禍已遠離。 人若為惡，禍雖未至，福已遠離。 http://www.taconet.com.tw/jieshu/

引言: DEAR 版主: 謝謝版主那麼快地回覆給我哦. 那這個使用完.FORM可以FREE掉嗎? 那myform 要宣告成什麼形態呢?? 麻煩你啦. MANDY ************************************************

引言: 改成這樣吧 MyForm:= TForm(TComponentClass('TForm1'); MyForm.show; @@~~飛翔在天際的精靈~~@@

發表人 - mamdy 於 2002/09/27 15:31:11

宣告成TFORM即可 要FREE用FREEANDNIL即可 @@~~飛翔在天際的精靈~~@@

如果您只是要在一個procedure中引用這個Form，似乎只要定義如下: 並不需要Create、Free等額外動作..

//使用var時，必須型態相同(如傳入Form1，可能要定義為 var fm:TForm1)
procedure fun1(fm : TForm); 
  var tmpForm:TForm;
begin
  tmpForm := fm;
  tmpForm.XXX....
end;