Jump to content

Exe How to Load Forms in DLL?


long

Recommended Posts

HI

Exe How to Load Forms in DLL?

Code execution does not report exceptions, but the main interface does not display DLL forms。

 

Main Form Calls DLL Code

procedure TfrmMain.UniButton3Click(Sender: TObject);
var
  f: TCreateDLLFormAsChild;
  c: TControl;
begin
  f := GetProcAddress(DLLHandle, 'CreateDLLFormAsChild');
  if Assigned(f) then begin
    c := f(UniTabSheet1);
  end;
end;

 

DLL Form Creation Method

function CreateDLLFormAsChild(parent: TWinControl): TControl; stdcall;
var
 frmResQuery: TfrmResQuery;
begin
  if not Assigned(frmResQuery) then
  begin
    frmResQuery := TfrmResQuery.Create(UniApplication);
    frmResQuery.ParentFont := False;
    frmResQuery.ParentWindow := parent.Handle;
    frmResQuery.Visible := true;

    frmResQuery.Left := 100;
    frmResQuery.Top := 100;
    Result := frmResQuery;
  end;
end;

exports
  CreateDLLFormAsChild;

 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...