Сделать окно формы активной при form1.show;

[Rec0il]

Здравствуйте.
Делаю в таймере проверку, если курсор в углу, показать форму(form1.show; )

Во втором таймере код:

if form1.Active=False then
begin
form1.Hide;
end;

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

Так вот, как только запускаю программу, навожу курсор в угол, она появляется там, с активностью, потом щелкаю на раб. стол, она исчезает, опять подвожу мышь в угол, она появляется но уже без активности, то есть если опять щелкнуть по раб.столу - она не исчезнет.

Как мне сделать так, что бы при form1.show , программа приобретала активность ???
Пробовал form1.active:=true, но при компелировании пишет что это только для чтения.

Если что, Win7, Delphi 7.

[grominfo]

form1.show;
form1.SetFocus;

[Rec0il]

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

form1.show;
form1.SetFocus;

Пробовал - не работает. Программа появляется, но фокус на ней нет.
ВОт скрин, форма появляется первый раз с фокусом, потом нажимаю на раб. стол, исчезает, навожу курсор в угол, появляется форма, но уже без фокуса. Вторая картинка на скрине.


Если что, вот код:

procedure TForm1.tmr1Timer(Sender: TObject);
begin
if (Mouse.CursorPos.X=0) and (Mouse.CursorPos.Y=0) then
begin
  form1.Show;
  form1.SetFocus;
end;
end;



procedure TForm1.tmr2Timer(Sender: TObject);
begin
if Form1.Active=false then
begin
  form1.Hide;
end;
end;

[FaTaL]

А если Form1.Activate?

[min@y™]

Application.BringToFront();

[Rec0il]

Сообщение от min@y™

Application.BringToFront();

Ребята, что я делаю не так ????

procedure TForm1.tmr1Timer(Sender: TObject);
begin
if (Mouse.CursorPos.X=0) and (Mouse.CursorPos.Y=0) then
begin
  form1.Show;
  form1.SetFocus;  // 1
  Form1.Activate;  //2
  Application.BringToFront;  //3
  Form1.FormStyle:=fsStayOnTop; //4
end;
end;



procedure TForm1.tmr2Timer(Sender: TObject);
begin
if Form1.Active=false then
begin
  form1.FormStyle:=fsNormal;
  form1.Hide;
end;
end;

4 варианта - не один не работает , что не так ёмаё! ((

[min@y™]

условие

(Mouse.CursorPos.X=0) and (Mouse.CursorPos.Y=0)

выполняется?

[grominfo]

Попробуй уничтожать форму, а потом опять создавать. То есть не show-hide, а create-free.

[FaTaL]

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

Попробуй уничтожать форму, а потом опять создавать. То есть не show-hide, а create-free.

Если уничтожить главную форму, то приложение закроется.

[Rec0il]

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

Попробуй уничтожать форму, а потом опять создавать. То есть не show-hide, а create-free.

А без create и free нельзя ?

Сообщение от min@y™

условие

(Mouse.CursorPos.X=0) and (Mouse.CursorPos.Y=0)

выполняется?

Да, как только подвожу курсор в угол - форма появляется, но без фокуса на ней(она на переднем плане, просто фокуса не ней нет, пока не ткнешь по форме мышкой)
Вот мне и надо, при команде form1.show дать ей этот фокус. Только почему ничего не выходит ? Все способы с гугла перепробовал