long Posted September 19, 2019 Share Posted September 19, 2019 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; Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.