如何自己做消息提示窗口(視窗) |
答題得分者是: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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |