Сделать активным окно.

[Winexcel]

Такая ситуация, у формы свойство:
Form1.formstyle:=fsStayOnTop
Если к примеру открыть taskmgr.exe, то он будет поверх всех форм(открытых окон) в том числе и нашей, если кликнуть по нашей форме то она опять будет поверх всех окон, собственно пробовал сделать её активной так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  form1.SetFocus;
end;

Нечего не вышло, есть идеи?

[DpolenST]

Идеи то есть, но ты представь что у тебя будет еще одна такая программа постоянно вылезающая поверх всех окон))

а вот что тебе нужно, вроде на делфи так делается

SetForegroundWindow(Application.Handle);

[Winexcel]

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

Идеи то есть, но ты представь что у тебя будет еще одна такая программа постоянно вылезающая поверх всех окон))

а вот что тебе нужно, вроде на делфи так делается

SetForegroundWindow(Application.Handle);

Не помогло, теперь примерно каждую миллисекунду то наша форма то taskmgr.exe стаёт активным
Сделать это возможно, так как если самому в панели задач клинкнуть по окну, или же на рабочем столе за то место что выходит за taskmgr.exe то работает.

[eval]

procedure TForm1.Timer1Timer(Sender: TObject);
begin

form1.SetFocus;
end;

это, извините, говнокод

надо перекрывать CreateParams и выставлять необходимые параметры окну
но так ли оно надо ?

[Winexcel]

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

это, извините, говнокод

надо перекрывать CreateParams и выставлять необходимые параметры окну
но так ли оно надо ?

Если можно то немного кода .

[Winexcel]

Начал делать так:
Получил текущий заголовок окна:

function GetWindowTitle:string;
var
  buf : array[0..255] of char;
begin
  GetWindowText(GetActiveWindow(), buf, 256);
  result:=buf;
end;

Далее в таймере юзаю это так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
Hand:string;
begin
//
Hand:=GetWindowTitle;
if (hand<>'Form1') then begin
 SetForegroundWindow(Application.Handle);
 Form1.SetFocus;
end;

end;

Это чтобы постоянно не было вызова чтобы сделать активным окно, но не работает.

[DpolenST]

Если taskmgr.exe это диспетчер задач, то можешь в меню "Параметры"->"Поверх всех окон" снять галочку.

[Winexcel]

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

Если taskmgr.exe это диспетчер задач, то можешь в меню "Параметры"->"Поверх всех окон" снять галочку.

Задача стоит именно программно реализовать