function ShowForm(Ahandle:Thandle):longint;
var
form:TPEMIN;
begin
try
application.Handle := AHandle;
Application.CreateForm(TDataModule1 , DataModule1 );
form := TPEMIN.Create(application);
form.ShowModal;
finally
form.Free;
form:=nil;
end;
end;如何释放资源? DataModule1
在DLL中?
var
form:TPEMIN;
begin
try
application.Handle := AHandle;
Application.CreateForm(TDataModule1 , DataModule1 );
form := TPEMIN.Create(application);
form.ShowModal;
finally
form.Free;
form:=nil;
end;
end;如何释放资源? DataModule1
在DLL中?
还有就是
Application.Handle要改回去