Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.10.2014, 15:39
Gareth Gareth вне форума
Активный
 
Регистрация: 21.03.2013
Адрес: Приднестровье
Сообщения: 202
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Не получается дать фокус своему окну

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:06.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025