線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1602
推到 Plurk!
推到 Facebook!

請問......

答題得分者是:channel
Tak
一般會員


發表:17
回覆:18
積分:7
註冊:2003-01-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-03-01 19:21:48 IP:218.102.xxx.xxx 未訂閱
==========Delphi6========== 按下一個button, 開啟一個window, 請問怎樣寫? 聽說form.show;可以做得到的......
channel
尊榮會員


發表:67
回覆:707
積分:854
註冊:2002-05-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-03-01 20:10:15 IP:218.163.xxx.xxx 未訂閱
引言:按下一個button, 開啟一個window, 請問怎樣寫? 聽說form.show;可以做得到的......
假如您有兩有個Form,分別為Form1(unit Unit1), Form2(unit Unit2) 而您要在Form1的Button1.click開始Form2,方法如下:
(1)在Form1的implementation底下打上:
   uses Unit2;
(2)procedure TForm1.Button1Click(Sender: TObject);
   begin
     if not Assigned(Form2) then//判斷是否已開啟
       Application.CreateForm(TForm2, Form2);
     Form2.Show;
   end;
(3)procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
   begin
     Action := CaFree;
   end;
(4)procedure TForm2.FormDestroy(Sender: TObject);
   begin
     Form2 := nil;
   end;
這樣應該就可以了! ~小弟淺見,參考看看~ 發表人 - channel 於 2003/03/01 20:11:07
------
~小弟淺見,參考看看~
Tak
一般會員


發表:17
回覆:18
積分:7
註冊:2003-01-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-03-01 21:09:06 IP:218.102.xxx.xxx 未訂閱
謝~
系統時間:2017-10-24 13:58:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!