如何在第一個form 出現前提示user 程式已在執行 |
尚未結案
|
tacheng6
一般會員 發表:3 回覆:1 積分:0 註冊:2003-03-14 發送簡訊給我 |
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
|
tacheng6
一般會員 發表:3 回覆:1 積分:0 註冊:2003-03-14 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
procedure TMainForm.FormShow(Sender: TObject); var SplashForm : TForm; LB : TLabel; begin SplashForm := TForm.Create(Application); LB := TLabel.Create(SplashForm); try SplashForm.Height := 100; SplashFOrm.Width := 200; SplashForm.BorderStyle := bsNone; SplashForm.position := poDesktopCenter; SplashForm.Font.Charset := CHINESEBIG5_CHARSET; LB.Parent := SplashForm; LB.Caption := '正在準備資料庫,請稍侯...'; LB.Top := 40; LB.Left := 20; SplashForm.Show; Application.ProcessMessages; sleep(10000); // 測試用停十秒,請刪掉它 // 你開 table 及 checking 的地方 // .... finally LB.Free; SplashForm.Free; end; end;註 : 寫好後才發現 hagar 兄已作答,不過既寫了照貼罷 |
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
提供一個做法供參考..
1.new一個Form->Name:Wait..上面擺一個Label.Capton:='程式已執行'
2.user點按鈕時,
procedure TForm1.Button1Click(Sender: TObject); begin try WaitFM := TWaitFM.create(self); WaitFM.show; WaitFM.Label1.Caption := '檢查資料中,請稍待...';//這裡可以更該Label顯示的文字 //這裡去做你的check WaitFM.Update; finally WaitFM.free; end; end;TRY TRY SEE 引言: Sorry,這不是我要的答案,或許是我說明的不夠清楚,我的問題是: 我有一支程式約 2mb , 執行時會先去許多table讀資料,並做一些check動作, 在做完這些check , 第一個 form 才會出現(約20-40 秒),而往往user以為沒點到該程式,所以會再次點他,而啟動第2次(這程式是允許重複執行的), 我的期望是當user有執行到這程式時,在第一個 form 出現前先show個 message 告訴user已經在執行了 |
loverlin
一般會員 發表:1 回覆:35 積分:22 註冊:2002-07-15 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |