Retorno do foco para o formulário errado

[Solivan]

Boa noite, tenho um PDV que está ganhando uma implementação com ACBrTEFD, estou quase concluindo, porém me deparei com um comportamento inesperado no procedimento procedure TACBrTEFD.RestaurarFocoAplicacao ;

Vou detalhar o caso;

1. Executo o TEFD ele autoriza

2. Quando retorna com o foco me joga para o formulário principal da minha aplicação e não para o segundo formulário que é o do PDV.

Fica um pouco estranho ao voltar para o segundo form, então observando a função notei que é isso mesmo que acontece e fiz um pequeno hotfix, testei e funcionou muito bem.

Alterei as linhas 1957 e 1958, ao invés de passar o handle da Janela principal estou passando o Handle do form que está ativo no momento da transação TEFD

Antes estava assim

          if Assigned(Application.MainForm) then
            SetForegroundWindow(FormToHWND(Application.MainForm));

Mudei o código para:

          if Assigned(Application.ActiveFormHandle) then
            SetForegroundWindow(Application.ActiveFormHandle);

Segue o arquivo para analise!

Obrigado!

ACBrTEFD.pas

[Daniel Simoes]

Você não precisa modificar ou usar o código do ACBrTEFD para restaurar o foco na aplicação... basta programar o evento OnRestauraFocoAplicacao e atribuir "Tratado := True"... Com isso o código do ACBrTEFD.pas será ignorado

[Solivan]

10 horas atrás, Daniel Simoes disse:

Você não precisa modificar ou usar o código do ACBrTEFD para restaurar o foco na aplicação... basta programar o evento OnRestauraFocoAplicacao e atribuir "Tratado := True"... Com isso o código do ACBrTEFD.pas será ignorado

Ok, Obrigado Daniel