MDI DLL中的Application问题
用Dll封装的MDI子窗体,Build with runtime packages,其它一切正常,仅当在Dll中调用Application时程序异常,请各位帮着看看
Dll的入口如下:
procedure getchildform(parentapplication:TApplication)
var ptr:PLongInt;
begin
...
Application.Handle:=parentapplication.MainForm.Handle;
ptr:@Application.MainForm;
ptr^:=Logint(parentapplication.MainForm);
TFormClass(ClassName).Create(Application.MainForm);
end;
[解决办法]
路过,顶!
[解决办法]
Application.Handle:=parentapplication.MainForm.Handle;
ptr:@Application.MainForm;
ptr^:=Logint(parentapplication.MainForm);
TFormClass(ClassName).Create(Application.MainForm);
==========================
不晓得你在做什么。。。
[解决办法]
function GetChildForm(hApp:THandle):LongInt;
begin
Application.Handle:=hApp;
Application.CreateForm(TForm1, Form1);
Result:=LongInt(Form1);
end;