Controle de Foco da Aplicação

[Earmarques]

Pessoal, aguém sabe um comando no Delphi para trazer o foco de volta para dentro da aplicação? Tentei Application.BringToFront e nada. Tipo, peço para abrir um programa e depois a tela tem que estar ativa, para que o usuário não precise clicar na tela.

Obrigado.

[EMBarbosa]

Olá,

Dá uma olhada no ACBrTEFD. Ele tem uma função que faz isso.

[RobsonDL]

uma opção seria simular o clique do mouse sobre o seu formulário...

procedure Tform1.FormActivate(Sender: TObject);

var

mousePos : TPoint;

begin

mousePos.X:=5;

MOUSEPOS.Y:=5;

mouse.CursorPos:=ClientToScreen(mousePos);

mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

end;

[Daniel Simoes]

A unit sndkey32 sempre funcionou para mim...

Veja esse post:

viewtopic.php?f=16&t=116&p=592&hilit=sndkey32#p592