Restaurar o foco no Firemonkey

[Earmarques]

Pessoal,

Estou implementando o TEF em uma aplicação em Firemonkey usando o ACBrTEFD. Ocorre que quando termina a transação de TEF o foco não volta para a aplicação, ou seja, na barra de tarefas não fica selecionado o ícone do sistema. Com isso o usuário tem que clicar dentro da aplicação para que o foco volte. Alguém pode me ajudar?

[Earmarques]

Pessoal,

Resolvi de um modo pouco usual, adicionei um form VCL e adicionei na unit uma função que simula o click do mouse usando um dos vários exemplos existentes para VCL. Chamo a função passando as coordenadas e o click ocorre com o foco voltando para a aplicação.

procedure TForm1.Clica(x, y: Integer);
var
Pt : TPoint;
begin
Application.ProcessMessages;
{Obtém o point no centro do Button1}
Pt.x := x;
Pt.y := y;
{Converte Pt para as coordenadas da tela }
Pt := ClientToScreen(Pt);
Pt.x := Round(Pt.x * (65535 / Screen.Width));
Pt.y := Round(Pt.y * (65535 / Screen.Height));
{Move o mouse}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
{Simula o pressionamento do botão esquerdo do mouse}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
{ Simula soltando o botão esquerdo do mouse }
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;

 

Editado 23 Agosto, 2017 por Earmarques

[Juliomar Marchetti]

Sugestão de correção?