dxTabbedMDIManager + DLL窗体 出错问题

[li_sj]

使用Dev dxTabbedMDIManager控件使用MDI窗口显示在TAB页面，主程序中的Mdi窗口显示没有问题，但DLL封装的Mdi窗口则出错。
有谁碰到过，指点一下

MDIForm

type
TProc = procedure(MyApplication: TApplication; MyParent: TForm); stdcall;

……
var
formMain: TformMain;
th: THandle;

implementation

{$R *.dfm}

procedure TformMain.ReadDLLForm(sDLLHandle: PWideChar;Parent:PAnsiChar) ;
var
tp: TProc;
label isLoad;
begin
isLoad:
if th <= 0 then
begin
th := LoadLibrary(sDLLHandle);
goto isLoad;
end
else
@tp := GetProcAddress(th, Parent);
if @tp <> nil then
tp(Application, Self);
end;

initialization

finalization
if th > 0 then
FreeLibrary(th);

end.


MDIChild
……
{$R *.res}
var
DLLApp: TApplication;

procedure CreateDLL_formSalesList(App: TApplication; MyParent: TForm); stdcall;
begin
Application := App;
formSalesList := TformSalesList.Create(MyParent);
end;

procedure DllUnload(Resean: Word); register;
begin
if Resean = DLL_PROCESS_DETACH then
Application := DLLApp;
end;

exports CreateDLL_formSalesList;

begin
DLLApp := Application;
DllProc := @DllUnload;
end.

[jiangzs188136923]

完美实现。可以交流。QQ：188136923

[jiangzs188136923]

多年稳定运行，可提供开发平台。你的问题看似简单。涉及到很技术细节。

[吴说扒道]

顶，我也遇到同样的问题，请楼上的帮忙解决啊，谢谢

[Stiven_PFan]

看到MDI就想呕吐，其实完全可以不用MDI的。

[xmtrpg]

我也遇到同样的问题！

[fxtest]

同样的问题。