dgsoft Novato
Registrado: Sábado, 30 de Novembro de 2013 Mensagens: 3
|
Enviada: Ter Out 08, 2019 11:23 am Assunto: Form Child em DLL sem foco |
|
|
Bom 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 ??? |
|