如何自己做消息提示窗口(視窗) |
|
答題得分者是：P.D.
|
|
zhczm
一般會員   發表：66 回覆：15 積分：16 註冊：2003-06-23 發送簡訊給我 |
|
|
P.D.
版主   發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: 我想在做數據處理之前創建一窗口顯示一信息,比如:'稍候,正在處理數據...',處理完后再釋放此窗口,但窗口創建后控制權還在原程序,謝謝!! 以前我是把消息提示是放在StatusBar中的,但大多處理數據時不顯示,不知爲啥?1.你的statusbar 有指定訊息但不顯示應該是你沒有下update指令 StatusBar1.simpleText:= '訊息顯示中'; StutusBar1.Update; 2.你要的功能參考如下 1.在private(或public) 宣告一個 Form_Wait: TForm 2.在implenent 中實作
procedure TForm1.MsgDialog(vMessage: string);
var wLabel: TLabel;
begin
if Form_Wait <> nil then FreeandNil(Form_Wait);
Form_Wait := TForm.Create(self);
wLabel := TLabel.Create(Form_Wait);
Form_Wait.Color := clBtnFace;
Form_Wait.BorderIcons := [biSystemMenu];
Form_Wait.Caption := '作業訊息';
Form_Wait.FormStyle := fsStayOnTop;
Form_Wait.Position := poOwnerFormCenter;
wLabel.Parent := Form_Wait;
wLabel.Color := clBtnFace;
wLabel.Font.Name := '標楷體';
wLabel.Font.Size := 20;
wLabel.Font.Color := clNavy;
wLabel.Caption := #13 vMessage #13;
wLabel.AutoSize := True;
wLabel.Layout := tlCenter;
wLabel.Alignment := taCenter;
Form_Wait.AutoSize := True;
Form_Wait.Show;
Form_Wait.Update;
end;
3.在程式中呼叫
....
begin
Form1.MsgDialog('功能作用中...');
.... // 處理你的程式段
if Form_Wait <> nil and FreeandNil(Form_Wait); // 釋放Form_Wait
end;
其他你可以再加強運用!
|
|
P.D.
版主 發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
發表時間：2003-10-08 16:41:45
IP:211.152.xxx.xxx 未訂閱
系統時間：2024-05-18 12:14:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |