![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Доброе время суток.
создаю новый проект, кидаю 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); Я до этого создал тему на другом форуме, человек сказал что у него всё работает как я задумывал. А у меня почему-то нет. Какого фига ?) Как мне дать моей форме фокус после form1.show;? Проект полностью чистый, на нем только 2 таймера. Win7 домашняя расширенная, Delphi 7 Lite Edition. |