UC知道Delphi定时Showmessage事件
来源：百度知道 编辑：UC知道 时间：2024/07/15 13:47:52
在Delphi中，当我调用Showmessage后，如何使弹出的对话框在一秒钟后自动关闭，而不用手动去点确定
1:用timer控件的函数
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm', PChar(Application.Title));
if AHandle > 0 then
SendMessage(AHandle, WM_CLOSE, 0, 0);
end;
2:自己在写个新的窗体
调用API
SENTMESSAGE