Delphi定时Showmessage事件

答案:2 悬赏:50 手机版

解决时间 2021-01-28 07:30

提问者网友：伴风望海
2021-01-27 14:05

在Delphi中，当我调用Showmessage后，如何使弹出的对话框在一秒钟后自动关闭，而不用手动去点确定

最佳答案

五星知识达人网友：走死在岁月里
2021-01-27 15:43

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

全部回答

1楼网友：荒野風
2021-01-27 15:58

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;

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息