FORM的呼叫 |
尚未結案
|
sun_chih_yen
一般會員 發表:40 回覆:33 積分:13 註冊:2003-10-03 發送簡訊給我 |
以下這句程式碼有辦法說是建立一個程式序然後那一個FORM元件需要則去呼叫嗎
procedure TForm3.N3Click(Sender: TObject);
BEGIN
if application.findcomponent('form1')=nil then
begin
application.createform(tform1,form1);
例如建立一個程式序然後FORM1要去呼叫和FORM2和FORM3要去呼叫程式序都是呼叫同一個那麼就不用再去FORM1和FORM2和FORM3的開啟都去寫這個程式碼
那麼要怎麼做才做的出來
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
VAR
WinCon:Thandle;
BEGIN
WinCon := FindWindow(NIL,'Form1');
if WinCon=0 then
begin
application.createform(tform1,form1);
form1.Show;
END;
WinCon := FindWindow(NIL,'Form2');
if WinCon=0 then
begin
application.createform(tform2,form2);
form2.Show;
END; 。。。。。
END;
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
sun_chih_yen 你好: 這是你要的嗎 ? 若將 TDumClass 獨立成一個公用的 Unit, 也是頗恰當的做法,
這樣,只要 Unit1,Unit2... use 該 Unit, 就可直接 Assign.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TDumClass=class procedure MyClick(Sender:TObject); end; TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; DumClass: TDumClass; implementation {$R *.dfm} procedure TDumClass.MyClick(Sender:TObject); begin showmessage('test'); end; procedure TForm1.FormCreate(Sender: TObject); begin Button1.OnClick := DumClass.MyClick; end; end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |