关于把MDI子窗体做成DLL的问题?
ahyf 2003-06-01 02:51:25 我把MDI子窗体做成DLL后。子窗体中,不能用Tab切换控件焦点.也不能用Button上设置的快捷键了。
我的代码如下:
DLL中这么写的
function ShowChild(App :TApplication ; pFormFreeCallBack : Pointer) : TFormChild;stdcall; export;
Begin
Application:=App;
Form_Record:=TFormChild.Create(Application);
result:=FormChild;
End;
///**Application 保存另一个单独的单元中
procedure SetOldApplication;stdcall;export;
Begin
Application:=OldApp;
end;
exports
ShowChild,SetOldApplication;
begin
OldApp:=Application;
end.
主窗体中这么写的:
TF_ShowChild=Function(App :TApplication ;pFreeCallBack : Pointer):TForm ;stdcall;
var
ShowChild : TF_ShowChild;
Form : TForm;
testDLL :DWODRD;
begin
testDll:=LoadLibrary('Project3.dll');
showChild:=GetProcAddress(testDll,'ShowChild');
Form:=ShowChild(application,nil);
fORM.Show;
end;
谁能帮我解决,我可以发例程,有重谢哦。