Form Child em DLL sem foco

08/10/2019

3

Bm dia, estou precisando de uma ajud, estou colocando um form child em dll, e chamo ele no NDI, mas o foco fica no MDI e não no child.

o código que uso é esse aki :

library MyDLL;

uses
SysUtils,
Classes,
Windows,
Forms,
untClientes in ''Unit1.pas'' ;

{$R *.res}

function LoadForm1Dll(p_app:TApplication):integer;
Begin
Result:=0;
Application:=p_app;
Form1:=Form1.Create(Application.MainForm);
Form1.Show;
End;

exports LoadForm1Dll;

begin
end.

e chamo assim:

...
private
{ Private declarations }
public
{ Public declarations }
end;

function LoadForm1Dll(p_app:TApplication):integer;external ''MyDll.dll'';

var
frmMainMenu: TfrmMainMenu;

implementation

{$R *.dfm}

procedure TfrmMainMenu.Button1Click(Sender: TObject);
begin
LoadForm1Dll(Application);
end;
...

o foco fica no MainMenu e não no Child, ao uaar o tab mesmo dentro do Child a navegação volta para o Main.
o que está faltando ?
alguém pode me ajudar ???
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira