線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1573
推到 Plurk!
推到 Facebook!

請教...如何關閉訊息視窗??

 
jojoboy
初階會員


發表:65
回覆:108
積分:34
註冊:2002-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-05-31 17:24:10 IP:61.220.xxx.xxx 未訂閱
請教各位前輩: 當我使用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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-05-31 17:40:40 IP:211.22.xxx.xxx 未訂閱
參考這篇: 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
系統時間:2024-03-29 13:16:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!