Доброе время суток.
создаю новый проект, кидаю 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.