請教...如何關閉訊息視窗?? |
|
jojoboy
初階會員 發表:65 回覆:108 積分:34 註冊:2002-03-13 發送簡訊給我 |
請教各位前輩:
當我使用MessageBoxy產生一訊息視窗時...
要如何讓他自動關閉呢....
我曾找到一段程式如下...
MessageBox(Handle,'Hello', 'Test', MB_ICONINFORMATION);
hMsgWnd := FindWindow(nil, PChar('Test')); // 找 MessageBox Caption
然後在Timer中有一段關閉的程式
SendMessage(hMsgWnd, WM_CLOSE, 0, 0);
但我卻Run不出東東出來...
連訊息視窗都沒有看到....
不知前輩們有沒有更好的解決方案...
~Thanks~
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
參考這篇:
http://www.delphifaq.com/fq/q2111.shtml
以及這篇由葉雨心老大的回答: 請問在程式中加一行 showmessage('存檔完成') 後 『存檔完成的對話方塊』要按鈕 ok 才會繼續執行後續程式 我的問題是 可不可以出現 「存檔完成的對話方塊」 暫停幾秒後, 用程式自動去按ok 讓程式自動繼續執行... ================================== 試試看吧~ unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := True; ShowMessage('Test'); end; procedure TForm1.Timer1Timer(Sender: TObject); begin SendMessage(GetActiveWindow, WM_CLOSE, 0, 0); Timer1.Enabled := False; end; end.發表人 - hagar 於 2002/05/31 17:46:49 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |