[Gareth]

Доброе время суток.
создаю новый проект, кидаю 2 таймера. интервал 10 мс.
Первый таймер:

Код:

if (Mouse.CursorPos.X=0) and (Mouse.CursorPos.Y=0) then
begin
  form1.Show;
form1.setfocus;
end;

Второй таймер:

Код:

if Form1.Active=false then
begin
  form1.Hide;
end;

Каков должен быть эффект ?
Запускаю прогу, она появляется с фокусом, кликаю в любом месте (раб. стол, браузер, или еще что нибудь, кроме своей формы) программа исчезает, затем я подвожу курсор в угол(условие в первом таймере), появляется форма, но уже без фокуса.
Вся проблема в том, что мне надо дать ей фокус, при появлении ( form1.show; ), но у меня этого НИКАК не получается.
Что я пробовал писать в первом таймере:

Код:

  form1.SetFocus;   
  Form1.Activate;  
  Application.BringToFront;   
  Form1.FormStyle:=fsStayOnTop;  
Application.Restore();
Application.RestoreTopMosts();
SetForegroundWindow(Application.Handle);
SetForegroundWindow(Application.MainForm.Handle);

Не один из 8 способов не помогает, я не могу понять в чем беда ?
Я до этого создал тему на другом форуме, человек сказал что у него всё работает как я задумывал. А у меня почему-то нет. Какого фига ?)
Как мне дать моей форме фокус после form1.show;?

Проект полностью чистый, на нем только 2 таймера.
Win7 домашняя расширенная, Delphi 7 Lite Edition.

[Alegun]

Добвресу, увж. ТС Gareth!
В данный момент у меня на машинке имеется даунгрейдовая WinXP (временно) Prof bld 2002 SP3; СР: D7Ent (прописано в профиле) - повторил ваши подвиги (в смысле создал времянку с таймерами и представленными условиями): так же как и чел. с др. форума подтверждаю, это работает так, как в ТЗ прописано - если это возможно, пжлст, сбросьте мне в личку вашу задумку, просто как-то странно, если у других такое работает, а у автора нет, есть вероятность какой-то ерунды в родной среде, разрешите это проверить