Delphi定时Showmessage事件

在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:自己在写个新的窗体

showmessage标题默认为工程名,可以改工程标题。（project-->options-->application-->title） 改delphi自带代码的话比较麻烦，推荐还是用messagebox. 写个过程放在代码段最前段调用 procedure showmessage(const msg, title: string); begin messagebox(application.handle, pchar(msg), pchar(title), mb_ok); end; //调试即可 procedure tform1.button1click(sender: tobject); begin showmessage('test','看看标题'); end;