procedure LoadForm(AppHandle:THandle;StartPos:TPoint); begin Application.Handle:=AppHandle; Form1:=TForm1.Create(Application); Form1.Left:=StartPos.x; Form1.Top:=StartPos.y; end;procedure UnLoadForm(); begin if Assigned(Form1) then FreeAndNil(Form1); end;exports LoadForm;如果需要模态窗口,则只要在一个过程中,自己控制窗口的create和free就可以了。。
怎么用!
你先讲讲!
暂时替你up 一下!
我怎样才能在外面调用这个Form呢?
begin
Application.Handle:=AppHandle;
Form1:=TForm1.Create(Application);
Form1.Left:=StartPos.x;
Form1.Top:=StartPos.y;
end;procedure UnLoadForm();
begin
if Assigned(Form1) then
FreeAndNil(Form1);
end;exports
LoadForm;如果需要模态窗口,则只要在一个过程中,自己控制窗口的create和free就可以了。。