Pessoal uma forcinha com DLL ?

Delphi

30/07/2004

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

Curtidas 0

Respostas

Beppe

Beppe

30/07/2004

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);


GOSTEI 0
POSTAR