Application.MessageBox('请调节输入信号','提示',0)
则弹出对话框
我如何判断弹出的没有关闭?
假如关闭了才可以继续弹 没有关闭就不再弹出了怎样???
则弹出对话框
我如何判断弹出的没有关闭?
假如关闭了才可以继续弹 没有关闭就不再弹出了怎样???
解决方案 »
- 用Wininet的http上传文件时,如何指定的文件夹不存在,如何才能创建文件夹?
- Delphi怎樣連接條碼打印機??
- 窗口显示的问题,请各位大侠进来帮帮忙,急!!!
- 关于提取考试系统的试卷问题
- dbExpress问题,SQLQuery只可处理6个字段? why
- 连接查询中的数据插入与删除问题,求助
- 谁有电梯调度程序的源程序? 1000分
- 请问一下按钮click事件用鼠标激活和用回车键激活有什么区别啊?
- 请教:在程序进行长时间的数据库操作时,让鼠标还处于活动状态?
- FastReport 怎么设置换行
- 使当前记录指向最后一条记录的SQL语句得怎么写呢?
- 这段程序为什么不能显示我希望的窗体背景颜色阿?
h : Hwnd ;
Begin
h :=FindWindow(nil,'提示'); //第二个参数为 MessageBox 标题栏的文本内容
If h>0 Then
... // 弹出的MessageBox 还没有关闭
Else
... // 弹出的MessageBox 已关闭End ;//如果还不行,就把 h :=FindWindow(nil,'提示')的nil 改为 '#32770'
if msgno = 0 then
begin
msgno := msgno + 1;
Application.MessageBox('请调节输入信号','提示',0);
msgno:= msgno -1;
end;
--------------------------------------
看见了么,
那支蛾子,
正飞向太阳,
那就是我!
--------------------------------------