Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
story.gif
Узнать находится ли мышка над формой
 
Формы и окна BOSS2005 написал "Посмотрев тут несколько примеров по этому вопросу, решил - что меня это все не устраивает. один пример использовал процедуру SetCapture но она мне не понравилась тем, что контрол теряется и к примеру форму нельзя двигать. другой пример с отловом событий CM_MOUSELEAVE/CM_MOUSEENTER тоже меня не устроил - потому что глючит и когда быстро двигать мышкой не срабатывает. я решил посадить всю эту проверку на таймер задав его интервал к примеру 50 мс и создав событие (см. ниже)

if ((Mouse.CursorPos.X >= Form1.Left) and (Mouse.CursorPos.X = Form1.Top) and (Mouse.CursorPos.Y <= Form1.Top + Form1.Height)) then
Form1.Caption := 'Mouse on Form'
else
Form1.Caption := 'Mouse out';"
 
Разместил 07/11/2005 от rolcom ( Прочитано: )

  blocks.gif
Связанные ссылки
 

· Больше про Формы и окна
· Новость от rolcom


Самая читаемая статья: Формы и окна:
Окна - такие разные:круглые, треугольные, звездообразные...

 
blocks.gif
Рейтинг статьи
 

Средняя оценка: 2
Ответов: 2


Пожалуйста, проголосуйте за эту статью:

Отлично
Очень хорошо
Хорошо
Нормально
Плохо


 
blocks.gif
опции
 


 Напечатать текущую страницу  Напечатать текущую страницу

 Отправить статью другу  Отправить статью другу

 
 

Page generation 0.030 seconds