如何判断showmessage出来提示框后，确定按钮被按下

smalldeer 2003-07-02 08:30:18

如何截获这个消息

谢谢

...全文

153 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

smalldeer 2003-07-03

打赏
举报

以解决，谢谢

dickeybird888 2003-07-03

打赏
举报

只能用massagebox, 同意zhuojohn
if Application.MessageBox('are you sure delete it?','',MB_OK)=mrOK then
begin
//delete the file
end;

sduzjw 2003-07-03

打赏
举报

可以用上面的MESSAGEBOX，为什么非要用SHOWMESSAGE

yxzzjg 2003-07-03

打赏
举报

应该是一个很容易的问题,上面的应该已经回答出来了

zhuojohn 2003-07-03

打赏
举报

if Application.MessageBox('are you sure delete it?','',MB_OK)=mrOK then
begin
//delete the file
end;

xagw 2003-07-03

打赏
举报

application.messagebox('','提示',33)=1

autumnlj 2003-07-02

打赏
举报

学习

Maple119 2003-07-02

打赏
举报

我想他要问的意思是说ShowMessage('请确定')之后,想知道用户点击是"确定"按钮还是点击右上角的'X'关闭窗口的吧,如果是这样.很抱歉地告诉你,我无法实现.不过你可以使用这个代替.

IF Application.MessageBox('真的要删除吗?', 36, '请确定')=6 Then //Delete

ysx192 2003-07-02

打赏
举报

messagebox(handle,'','',49)=mrok

pingshx 2003-07-02

打赏
举报

sorry
procedure timer.ontimer(Sender: TObject);
var
wnd:hwnd;
begin
wnd:=findwindow(showmessage的对话框，nil);
if wnd<>null then
sendmessage(wnd,wm_close,0,0);
end;
不知你要的是不是这个！！

wnd

pingshx 2003-07-02

打赏
举报

procedure timer.ontimer(Sender: TObject);
var
wnd:hwnd;
begin
findwindow(showmessage的对话框，nil);
if h<>null then
sendmessage(h,wm_close,0,0);
end;
不知你要的是不是这个！！