أفضل ما في الأمر:
================================================================================================== ==============================================================================
جمهورية الكونغو الديمقراطية
this.programMdiform;
الاستخدامات
النماذج،
UMdiformin´UMdiform.pas´{النموذج الرئيسي}،
UDMin´UDM.pas´{GlobalDM:TDataModule},
UFunin´UFun.pas´;
{$R*.res}
يبدأ
Application.Initialize;
Application.CreateForm(TMainform,Mainform);
Application.Run;
نهاية.
================================================================================================== ======================================================================================
هذا هو السبب:
this.unitUMdiform;
واجهة
الاستخدامات
Windows، الرسائل، SysUtils، المتغيرات، الفئات، الرسومات، عناصر التحكم، النماذج،
مربعات الحوار، UDM، StdCtrls؛
يكتب
تماينفورم=فئة(تفورم)
Button1:TButton؛
الإجراءButton1Click(Sender:TObject);
الإجراءFormCreate(Sender:TObject);
خاص
{التصريحات الخاصة}
عام
MyHandle:HWND;
{التصريحات العامة}
نهاية؛
فار
النموذج الرئيسي:TMinform;
يكتب
T_ShowTestMng=function(varadm:TMainform):Boolean;StdCall;
تطبيق
{$R*.dfm}
الإجراءTMainform.Button1Click(Sender:TObject);
فار
Lib_:Thandle;
_ShowTestMng:T_ShowTestMng;
يبدأ
Lib_:=LoadLibrary(pchar(´MdiChild.dll´));
يحاول
@_ShowTestMng:=GetProcAddress(Lib_,´_ShowTestMng´);
إذا لم يكن (@_ShowTestMng=nil)ثم
_ShowTestMng(Mainform);
أخيراً
FreeLibrary(Lib_);
نهاية؛
نهاية؛
الإجراءTMainform.FormCreate(Sender:TObject);
يبدأ
MyHandle:=Application.Handle;
نهاية؛
نهاية.
================================================================================================== ===================================================================================
نوع ملف DLL:
LibraryMdiChild;
الاستخدامات
مشاركة,
UMdiform,//此单元为父窗体单元،在顶目设置中我已经设置了搜索此单元在路径.
النماذج،
سيسوتيلس,
الطبقات،
UChildin´UChild.pas´{FrmChild};//FrmChild هو أحد أشكال FormStyle الذي يستخدم FsMDIChild
{$R*.res}
function_ShowTestMng(varadm:TMainform):Boolean;StdCall;
يبدأ
النتيجة:=صحيح؛
Application.Handle:=adm.MyHandle;
Application.CreateForm(TFrmChild,FrmChild);// تم إنشاء نموذج جديد: لا يمكن إنشاء النموذج. لا توجد نماذج MDI نشطة حاليًا.
FrmChild.Show;
نهاية؛
صادرات
_ShowTestMng;
نهاية.