可以利用function 去開啟一個form嗎? |
答題得分者是:william
|
linhoo123
一般會員 發表:12 回覆:10 積分:4 註冊:2002-08-02 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
引言: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 |
linhoo123
一般會員 發表:12 回覆:10 積分:4 註冊:2002-08-02 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
liorex
初階會員 發表:19 回覆:60 積分:32 註冊:2002-08-20 發送簡訊給我 |
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.
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |