從一個form跳到顯示另一個form…該如何做 |
尚未結案
|
k1
一般會員 ![]() ![]() 發表:3 回覆:3 積分:1 註冊:2004-03-20 發送簡訊給我 |
|
carter6
初階會員 ![]() ![]() 發表:53 回覆:108 積分:42 註冊:2002-12-16 發送簡訊給我 |
|
Amanda_Chen
一般會員 ![]() ![]() 發表:25 回覆:82 積分:21 註冊:2003-12-28 發送簡訊給我 |
設有表單Form1與Form2。表單一停留1分鐘後顯示表單二。按表單二的返回鍵返回表單一。實現方法如下:Form1下添加計時器(TTimer,在VCL的system下),將TTimer的interval設定為60000(因為預設值1000為一秒)。Timer的Timer事件中加入:
procedure TForm1.Timer1Timer(Sender: TObject);?關鍵程式 var frm2:TForm2 ; begin frm2:=TForm2.Create(frm2); frm2.ShowModal; end;Form2中加入按鍵,Caption為“Back to Form1”.Click代碼為: procedure TForm2.Button1Click(Sender: TObject); begin self.close; end; |
bigdogchina
版主 ![]() ![]() ![]() ![]() ![]() 發表:238 回覆:523 積分:312 註冊:2003-04-28 發送簡訊給我 |
各位前輩,不好意思,打攪一下,插個花:
有兩個Form: Form1,Form2,我們單擊Form1上的Button1就延遲3秒然後顯示Form2.(注意哦,要在Project--->Options--->Forms中將Form2由Auto-create forms移動到Available forms,然後在File--->Use Unit...中加入Unit2)
... uses Unit2 ... procedure TForm1.Button1Click(Sender: TObject); begin Sleep(3000); Form2 := TForm2.Create(Application); Form2.ShowModal; Form2.Free; end;Form2和其他Form一樣,隨意使用
------
人生在勤,不索何获? |
mo
一般會員 ![]() ![]() 發表:5 回覆:8 積分:2 註冊:2004-08-03 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |