Application.MessageBox的关闭问题

Question

Application.MessageBox('请调节输入信号','提示',0)
则弹出对话框
我如何判断弹出的没有关闭？
假如关闭了才可以继续弹 没有关闭就不再弹出了怎样???

Answer 1

// 试试下，这个：Var
   h : Hwnd ;
Begin
      h :=FindWindow(nil,'提示'); //第二个参数为 MessageBox 标题栏的文本内容
      If h>0 Then
        ... // 弹出的MessageBox 还没有关闭
       Else 
         ... // 弹出的MessageBox 已关闭End ;//如果还不行，就把 h :=FindWindow(nil,'提示')的nil 改为 '#32770'

Answer 2

MessageBox是模式对话框不关闭程序不往下执行写在循环里不就行了？

Answer 3

放一个，全局变量。或者干脆做一个窗体，放一个MEMO，然后消息ADD。

Answer 4

建一个全局变量msgno :int
if msgno = 0 then
  begin
    msgno := msgno + 1;
    Application.MessageBox('请调节输入信号','提示',0);
    msgno:= msgno -1;
  end;
--------------------------------------
看见了么，
那支蛾子，
正飞向太阳，
那就是我！
--------------------------------------