Bagaimana cara kerjanya:
==================== ==========
DPR
programMdiform;
kegunaan
Formulir,
UMdiformin´UMdiform.pas´{Informasi Utama},
UDMin´UDM.pas´{GlobalDM:TDataModule},
UFunin´UFun.pas´;
{$R*.res}
mulai
Aplikasi.Inisialisasi;
Aplikasi.CreateForm(TMainform,Mainform);
Aplikasi.Jalankan;
akhir.
==================== ===============
Contohnya:
unitUMdiform;
antarmuka
kegunaan
Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir,
Dialog,Udm,StdCtrls;
jenis
TMainform=kelas(TForm)
Tombol1:Tombol;
procedureButton1Click(Pengirim:TObject);
procedureFormCreate(Pengirim:TObject);
pribadi
{Deklarasi Pribadi}
publik
Pegangan Saya:HWND;
{Deklarasi Publik}
akhir;
var
Bentuk Utama: Informasi Utama;
jenis
T_ShowTestMng=fungsi(varadm:TMainform):Boolean;StdCall;
pelaksanaan
{$R*.dfm}
procedureTMinform.Button1Click(Pengirim:TObject);
var
Lib_:Pegangan;
_TampilkanTestMng:T_TampilkanTestMng;
mulai
Lib_:=LoadLibrary(pchar(´MdiChild.dll´));
mencoba
@_ShowTestMng:=GetProcAddress(Lib_,´_ShowTestMng´);
jika tidak(@_ShowTestMng=nihil)maka
_ShowTestMng(Informasi Utama);
Akhirnya
Perpustakaan Gratis(Lib_);
akhir;
akhir;
procedureTMinform.FormCreate(Pengirim:TObject);
mulai
MyHandle:=Aplikasi.Handle;
akhir;
akhir.
==================== ==============
子窗体DLL代码:
perpustakaanMdiChild;
kegunaan
BagikanMem,
UMdiform,//此单元为父窗体单元,在顶目设置中我已经设置了搜索此单元在路径。
Formulir,
sistemUtils,
Kelas,
UChildin´UChild.pas´{FrmChild};//FrmChild子窗体的FormStyle属性为FsMDICild
{$R*.res}
function_ShowTestMng(varadm:TMainform):Boolean;StdCall;
mulai
hasil:=benar;
Aplikasi.Handle:=adm.MyHandle;
Application.CreateForm(TFrmChild,FrmChild);//程序就出错在此:出错原因是:Tidak dapat membuatform.NoMDIFormssaat ini aktif.
FrmChild.Tunjukkan;
akhir;
ekspor
_TampilkanUjianMng;
akhir.