[Exe How to Load Forms in DLL?]

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;