关于DLL里有窗体的问题
在DLL中

Delphi(Pascal) code

library DllMain;……function fm:TForm;stdcall;begin fmDllMain := TfmDllMain.Create (nil); Result:=fmDllMain; {procedure TForm1.Button1Click(Sender: TObject);VARAA:TForm;begin AA:=zjpFm; AA.Parent:=nil; AA.ShowModal; FreeAndNil(AA);end;}end;exports  fm      name 'zjpfm';beginend.

我想这样调用。

function zjpfm:TForm;stdcall;external 'Win32\Debug\DllMain.dll';

……

procedure TForm1.FormCreate(Sender: TObject);
var
cc:TForm;
begin
cc:=TForm.Create(Application);
cc:=zjpFm;
//cc:=TForm.Create(Application);
cc.Parent:=Self
cc.Visible:=True;
end;


可是这样用有问题。会有异常出现,还有就是关不掉cc




[解决办法]
http://blog.csdn.net/zhenghui1/article/details/5940510
[解决办法]
记得在dll函数中一定要加入application的句柄

Delphi(Pascal) code

function ABC(AppHandle:HWND; Btns: LongInt): LongInt; export; stdcall;begin  Application.Handle:=AppHandle;  IsGetButtonList := True;  frmChild:=TfrmABC.Create(Application);  try    frmChild.GetChildFormButton(Btns);  finally    FreeAndNil(frmChild);  end;end;
[解决办法]
屏蔽cc.Parent:=Self

使用
windows.SetParent(cc.Handle, Handle);
[解决办法]
dll 代码
function fm: TForm; stdcall;
begin
 Form2 := TForm2.Create(nil);
 Result := Form2;    
end;
exports fm name 'zjpfm';
begin
end.
窗体代码

var
 cc: TForm;
begin
 cc:=TForm.Create(nil);
 cc := zjpFm;
 windows.SetParent(cc.Handle, Handle);
 cc.Visible := True;   
end;
[解决办法]
这样写——————————————————————————
function abc: TForm; stdcall;
begin
 Result := TForm1.Create(Application);
end;
[解决办法]
dll窗体融合主程序窗体吗？

cc:=zjpFm;
cc.ParentWindow:=Self.handle;
cc.align:=alClient;
cc.icon.handle:=Application.icon.handle;
cc.show;



[解决办法]
另外，用主程序的application.handle替换dll的application.handle
[解决办法]
引用方式不对，或者DLL中的接口不规范
[解决办法]
这样写吧
procedure VS_Createform(App:THandle);stdcall;
begin
 Application.Handle := App; 
 if fmDllMain =nil then
 form1:=TfmDllMain.Create(application);
 form1.Position := poDesktopCenter;
 FSisonline := false;
 form1.show;
end;
[解决办法]
FSisonline := false;
这句不要，这是我程序里面写的