Dear All: 如何透過function 的方式去開啟另一個from, 另外想請教一下底下的寫法是否有誤, function GetFrm(FromName: TForm): TForm; overload; linhoo

引言:Dear All: 如何透過function 的方式去開啟另一個from, Form1 := TForm1.Create(self); 另外想請教一下底下的寫法是否有誤, function GetFrm(FromName: TForm): TForm; overload; overload? Do you have another function with the same name? I guess FromName (or FormName?) should be a string of the form type, right? linhoo

Sorry!        我希望有一個function 能做到 Form1 := TForm1.Create(self); 假設我只要 GetForm(Form1) 他就能做到 Form1 := TForm1.Create(self); 我只要把Form1的名稱輸入進去,就會開啟Form1, 請問有這樣的例子嗎?上面說的方法是可行或不可行呢? 謝謝!!

Is it what you want? http://forum.vclxx.org/topic.php?TOPIC_ID=23041&FORUM_ID=5&CAT_ID=2&Topic_Title=%A6p%A6%F3%A8%CF%A5%CE%C5%DC%BC%C6%28%B0%CA%BAA%29%A8%D3Create+Form+%3F&Forum_Title=Database

type TForm1 = class(TForm) <--你要開的form Button1: TButton; end; function GetCreate :integer ; <-設定一個要開個form 的function 也可以 加入許多你想要的參數 然後use 這一個unit 然後 執行這一個 function 就可以啦 var Form1: TForm1; implementation {$R *.DFM} function GetCreate ; begin with TForm1.Create(nil) do begin try ShowModal ; finally Free; end; end; end ; end.