怎么可以让application.messagebox打开一个模式窗体（无未结贴记录，有答案即结帖）

Question

在用application.messagebox的时候，打开的是一个无模式对话框，如果我想打开一个模式对话框，但不想用API中的messagebox的时候应该怎样做？请各位帮忙UP一下，多谢了，UP有分

Answer 1

为什么不用 API 的呢？

Answer 2

API的太麻烦了而且我这个程序目前用的就是application.messagebox，再逐个换成API的，很费事，
难道我这个问题没有别的解法么？  排除自己重建，inputbox和querybox不符合我的要求

Answer 3

完全我一个人做MIS
实习期间一个月才150，真黑啊

Answer 4

这个MIS完全我一个人做，属于实习期间，一个月才150，现在都5000行代码了，只拿到150。真他妈的郁闷

Answer 5

有点难度，我建议你还是用API吧！
你要是东西很多的话，就用“查找/替换”功能吧！呵呵。

Answer 6

我有可能采用API，但这个问题我现在只是想知道答案那 
因为我的是在线程中写的，所以 if messagedlg等vcl不线程安全函数都不能用各位有没有办法呢？

Answer 7

1.showmessage(....);
2.或是自已創建一個消息窗口

Answer 8

我在form中用application.messagebox打开的就是模式窗体，为什么在线程中就是无模式的呢？不过仔细想想好象真是线程的关系啊，线程的作用不就是cpu轮换么，那么是无模式窗体应该很正常了，不好解决啊。代码如下procedure mythreadf.Execute;
begin
   with sjbf do
     begin
        if FileListBox2.FileName='' then
           begin
              application.MessageBox(pchar('请先选择复制文件'),pchar('文件错误'),mb_ok);
              exit;
           end;
             try
               suiform1.Caption:='复制中...请韶侯';
               copyfile (pchar(FileListBox2.FileName),pchar(DirectoryListBox1.Directory+'\'+FileListBox2.Items [FileListBox2.ItemIndex]),false);
               FileListBox1.Update ;
               application.MessageBox(pchar('一个文件已经复制完毕'),pchar('复制完成'),mb_ok);
               suiform1.Caption:='数据备份与恢复';
             except
               application.MessageBox(pchar('文件复制时出现问题，请重试'),pchar('复制失败'),mb_ok);
               suiform1.Caption:='数据备份与恢复';
               exit;
             end;
     end;
end;

Answer 9

試試我的這段代碼，應該可以解決你的問題：
 application.MessageBox('問題搞定','提示',MB_OK+MB_ICONINFORMATION);

Answer 10

我打算在主线程中写一个过程调用messagebox在分线程中调用该过程，还有比这好的解决办法么？这个帖子看来没有人能解决问题了要当成散分贴么？

Answer 11

楼上的，拜托你要混分也看清楚别人的回复好么？
我已经说了由于线程本身的特点，所以模式窗体在线程中不起什么作用，就是换成API的也不行，明白了么》？

Answer 12

手工把你的模态窗口的父句柄指向你的主窗口。然后SHOWMODAL。
一般情况下，如果不指定父句柄，系统自动将主窗口作为子窗口的父窗口。但是在线程里会有所改变。

Answer 13

to foxnt(白羊座神话★天马梦想)我要在星期一才能试验,到时结帖欢迎楼下各位继续讨论