在线等待！！！(50分)

mei_mei · 2003-06-19

我用Showmessage()显示一信息，我想当某一条件触发时我能不能在不操作鼠标的情况下让showmessage信息框自动消失，请问怎样实现？

CosmopolitanKen · 2003-06-19

在TTIMER的时间里 发送点击消息

mei_mei · 2003-06-19

To ：CosmopolitanKen 可不可以不用Timer来控制，我的程序里timer用的太多已用了6个，能不能通过其它方法实现？

梦之旅 · 2003-06-19

我也想知道，帮你提前

来如风 · 2003-06-19

不用timer那你只有在其他事件里写了，关键是你认为什么事件里面适合写这个东西呢

mei_mei · 2003-06-19

那么怎么发送点击消息？

mei_mei · 2003-06-19

大家帮帮忙呀

52free · 2003-06-19

postmessage(handle,bm_click,0,0) handle那个按钮的句柄

来如风 · 2003-06-19

同意楼上、 为了找到这个按钮句柄可以这样 var hParent,hButton:Hwnd; begin   hParent:=FindWindow(nil,'Project1');//project1是你show出来的对话框的标题，                                      //换成恰当的   hButton:=FindWindowEx(hParent,0,nil,'OK');//确定按钮句柄   SendMessage(hButton,BM_CLICK,0,0);//发送点击消息

mei_mei · 2003-06-19

To ：来如风:   谢谢！我想再问你一个问题，怎样得到一个messagdlg消息框句柄？

来如风 · 2003-06-19

方法一样的啊，你也可以通过FindWindow(nil,'Project1');来找出来 不过‘project1'要变成你MessageDlg的标题内容了， 比说你MessageDlg('Exiting the Delphi application.', mtInformation,       [mbOk], 0); 那么你可以FindWindow(nil,'information');来找出他

mei_mei · 2003-06-19

非常感谢！！！

在线等待！！！(50分)

mei_mei

Unregistered / Unconfirmed

CosmopolitanKen

Unregistered / Unconfirmed

mei_mei

Unregistered / Unconfirmed

梦之旅

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

mei_mei

Unregistered / Unconfirmed

mei_mei

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

mei_mei

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

mei_mei

Unregistered / Unconfirmed

Similar threads