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;
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
Curtir tópico
+ 0
Responder
Posts
30/07/2004
Beppe
Vc precisa setupar a global Application. Exporte uma nova função na dll:
No seu programa chame SetApplication(Application);
procedure SetApplication(App: TApplication); begin Application := App; end;
No seu programa chame SetApplication(Application);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)