Автофокус своего окна.

[Zis67]

Собственно программа помещается в трей, при на жатии на иконку она всплывает, и вот тут нужно чтобы окно забирало фокус, и при запуске программы из иде так и получается (правда только один раз, хотя до этого вроде стабильно было), но если запускать отдельно то окно не берёт фокус. Как это можно сделать.

[Konstantin_ua]

function TWinControl.Focused: Boolean;
begin
  Result := (FHandle <> 0) and (GetFocus = FHandle);
end;

не оно?

[Zis67]

Сообщение от Konstantin_ua

function TWinControl.Focused: Boolean;
begin
  Result := (FHandle <> 0) and (GetFocus = FHandle);
end;

не оно?

Никак недогоню как этим пользоваться).
Попробовал поместить в событие клика на трей и репаинт проверку:

if getfocus=form1.Handle then Form1.Canvas.TextOut(0,0,'ok') else Form1.Canvas.TextOut(0,0,'(');

Если из среды запускать первые два раза пишет ок, но уже со второго раза форма не отзываться на кейдаун\кейап, если отдельно от среды то один раз пишет ок но нереагирует.

[Zis67]

с помощью function TWinControl.Focused: Boolean; насколько я понял также можно проверить, но фокус этим не поставиш.

[northener]

Сообщение от Zis67

Собственно программа помещается в трей, при на жатии на иконку она всплывает, и вот тут нужно чтобы окно забирало фокус, и при запуске программы из иде так и получается (правда только один раз, хотя до этого вроде стабильно было), но если запускать отдельно то окно не берёт фокус. Как это можно сделать.

Ну прям детский сад.
"программа помещается в трей"
"при нажатии на иконку она всплывает"
"окно забирало фокус".
Программы никогда не помещаются в "трей". Программы никогда не "всплывают". Окна никогда не "забирают фокус".

[ZuBy]

SetFocus, не подходит?

[Sibedir]

Попробуй

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  Application.Restore;
  SetForegroundWindow (Handle);
end;

[Zis67]

ZuBy, пробовал, не подходит.
Sibedir, SetForegroundWindow (Handle); - спасибо, то что нужно.