Delphi里调用DLL里的对话框遇到一个很奇怪的问题。。。好人们帮忙看一下

[JKLJJLJLK]

在DLL中加入MessageBox,从程序中调用时弹出提示信息对话框,然后点击确定后程序窗体就跑到其他程序窗体的后面了,到底咋回事啊？
下面是DLL中的对话框代码

procedure ShowMsgInfo(strInfo:PChar);stdcall;
begin
    Application.MessageBox(strInfo,'提示',MB_OK+MB_ICONINFORMATION);
end;

[santiaodahan]

帖代码吧，至少能重现出这个问题才能解决。

[JKLJJLJLK]

引用 1 楼 santiaodahan 的回复:

帖代码吧，至少能重现出这个问题才能解决。

刚才补充了

[santiaodahan]

引用 2 楼 QQQ541825707 的回复:

引用 1 楼 santiaodahan 的回复:

帖代码吧，至少能重现出这个问题才能解决。

刚才补充了

最好帖完整了，dll和调用的代码。可能不是对话框的问题。

[lyhoo163]

顶一下，末知。

[JKLJJLJLK]

引用 3 楼 santiaodahan 的回复:

引用 2 楼 QQQ541825707 的回复:

[quote=引用 1 楼 santiaodahan 的回复:] 帖代码吧，至少能重现出这个问题才能解决。

刚才补充了

最好帖完整了，dll和调用的代码。可能不是对话框的问题。[/quote] DLL代码：

//定义过程:提示用户信息
procedure ShowMsgInfo(strInfo:PChar);stdcall;
begin
  Application.MessageBox(strInfo,'提示',MB_OK+MB_ICONINFORMATION);
end;
exports    
     ShowMsgInfo;

主程序代码：

procedure TForm1.btn1Click(Sender: TObject);
var
  strVal:string;
begin
  strVal:=edt1.Text;
  ShowMsgInfo(PChar(strVal));
end;//按钮btn1的单击事件

[看那山瞧那水]

dll的Handle:= 主程序的Handle

[santiaodahan]

dll加一个参数，传入调用者的句柄给dll中的Application.Handle 或者直接使用API函数MessageBox（引用Windows），使用后者没有这个问题。但最好也传入主窗体句柄，否则对话框会出现在任务栏上。Application.MessageBox是API函数MessageBox的包装，更复杂。

[santiaodahan]

MessageBox函数例子：MessageBox(Ahandle,'对话框内容!','提示',MB_OK+MB_ICONInformation);

[不得闲]

Application.MessageBox使用的是前置在应用程序的Handle，如果你Dll不带包，那么Dll和宿主中的Application是两个对象，你在DLl中的Application.MessageBox实际上是前置在Dll的Application最前，和你的宿主无关，最好的办法是用MessageBox然后获得前置窗口Handle，作为参数放进去则可

[JKLJJLJLK]

引用 8 楼 santiaodahan 的回复:

MessageBox函数例子：MessageBox(Ahandle,'对话框内容!','提示',MB_OK+MB_ICONInformation);

引用 9 楼 suiyunonghen 的回复:

Application.MessageBox使用的是前置在应用程序的Handle，如果你Dll不带包，那么Dll和宿主中的Application是两个对象，你在DLl中的Application.MessageBox实际上是前置在Dll的Application最前，和你的宿主无关，最好的办法是用MessageBox然后获得前置窗口Handle，作为参数放进去则可

结分啦，谢谢各位大神，我想每次都穿句柄参数有点麻烦，我用MessageBox,但是句柄用GetForegroundWindow获取可以吗？ DLL代码：

procedure ShowMsgInfo(strInfo:PChar)stdcall;
begin
  MessageBox(GetForegroundWindow,strInfo,'提示',MB_OK+MB_ICONINFORMATION);
end;

[santiaodahan]

结分啦，谢谢各位大神，我想每次都穿句柄参数有点麻烦，我用MessageBox,但是句柄用GetForegroundWindow获取可以吗？ DLL代码：

procedure ShowMsgInfo(strInfo:PChar)stdcall;
begin
  MessageBox(GetForegroundWindow,strInfo,'提示',MB_OK+MB_ICONINFORMATION);
end;

[/quote] 可以这么用。不过GetForegroundWindow有返回为NULL的时候，比如通过Application.Minimize;窗口最小化的时候返回句柄为空，MessageBox对话框就会出现在任务栏上。