怎么没有回应？
这样试试好了。假设你是调用dll中封装的Form。
在调用dll form的application中，调用之前加一句试试！
调用程序：
procedure ShowMyFrm(Handle: THandle);stdcall; external 'project1.dll';
。。。。。
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Initialize;
showmyFrm(Application.Handle);
end;
dll中的倒出函数：
procedure ShowMyFrm(AHandle: THandle);
var
MyFrm: TForm1;
begin
Application.Handle := AHandle;
MyFrm := TForm1.Create(nil);
try
MyFrm.ShowModal;
finally
MyFrm.Free;
end;
end;
