Fórum Pessoal uma forcinha com DLL ? #245030

30/07/2004

0

Pessoal tenho essa seguinte rotina em uma dll, só que quando abro esse formulário mando pesquisar debito do cliente se não existir débito ele diz que não existe da 2 vez que der essa mensagem, ela sai do foco do programa que a chamou exemplo, se eu estiver com Windows Explorer aberto a tela fica em cima do Windows Explorer,e não do programa que a chamou ?

function ShowBaixaDebito(Operador : String): String ; StdCall;
begin
if DataModulo = nil Then
begin
CarregarPath ;
DataModulo:=TDataModulo.Create(nil);
DataModulo.Conexao.DatabaseName:=Path ;
end;
If FrmBaixaCompra = nil
then FrmBaixaCompra:= TFrmBaixaCompra.Create( nil );
FrmBaixaCompra.PanelOperador.Caption :=Operador ;
FrmBaixaCompra.ShowModal ;
end;


Essistemas

Essistemas

Responder

Posts

30/07/2004

Beppe

Vc precisa setupar a global Application. Exporte uma nova função na dll:

procedure SetApplication(App: TApplication);
begin
  Application := App;
end;


No seu programa chame SetApplication(Application);


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar