procedure ShowMDIChild(app:TApplication);stdcall;
var
p:^LongInt;
begin
p:=@(Application.MainForm);
p^:=LongInt(app.MainForm);
with TForm1.Create(application) do begin
FormStyle:=fsMDIChild;
Show;
end;
end;
这个函数是写在你的DLL里面的，要export出去给主窗体用。
TForm1就是你这个DLL里的要显示的窗体的类名。
