Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Вниз

Курсор   Найти похожие ветки 

 
Shnabs   (2005-03-01 19:46) [0]

Как выполнить какое-нибудь действие, если курсор мыши наведен на определенный объект, а другое действие, если он (курсор) не наведен на этот объект.


 
begin...end ©   (2005-03-01 21:09) [1]

> Shnabs   (01.03.05 19:46)

Очевидно, нужно проверить, входит ли точка с координатами курсора в область, ограниченную компонентом.

Координаты курсора можно получить через API-функцию GetCursorPos или через глобальный объект Mouse: свойство Mouse.CursorPos. А прямоугольник области компонента находится в свойстве TControl.BoundsRect. Проверить принадлежность одного другому можно с помощью функции PtInRect.

Но координаты курсора нужно преобразовывать в систему координат родителя компонента. Например, если на форме с именем MyForm находится кнопка MyButton (и MyForm является родителем этой кнопки), то проверить можно так:

if PtInRect(MyButton.BoundsRect, MyForm.ScreenToClient(Mouse.CursorPos)) then
 // Курсор находится в пределах прямоугольника кнопки

См. также: TWinControl.ControlAtPos.


 
Shnabs   (2005-03-01 21:22) [2]

Дело в том что мне надо сделать, чтобы курсор при выходе из области объекта выполнил коекакое действие, а как это сделать я что-то не доганю.


 
P.N.P. ©   (2005-03-01 21:26) [3]

лови сообщение CM_MOUSELEAVE


 
begin...end ©   (2005-03-01 21:28) [4]

> Shnabs   (01.03.05 21:22) [2]

Понятно. А вот теперь скажите честно - следует ли этот Ваш вопрос из первоначального вопроса? По-моему, совершенно не следует. И на первоначальный вопрос я уже дал ответ в [1]. И что мне теперь делать? Вдруг я опять не прочитаю Ваши мысли, и опять отвечу не на тот вопрос?

Создайте потомка компонента и создайте в нём обработчики сообщений CM_MOUSEENTER и CM_MOUSELEAVE. Пример того, как это можно сделать, смотрите в исходниках TCustomLabel.

Боольше не скажу ни слова. Весь выдохся на ответе [1].



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.04 c
3-1108026505
Brain Force
2005-02-10 12:08
2005.03.13
Получение результатов выполнения запроса в список


1-1109236287
sunsay
2005-02-24 12:11
2005.03.13
Вопрос по оптимизации


14-1109057811
Ega23
2005-02-22 10:36
2005.03.13
Эта... С наступающим!


4-1107149775
DelphiN!
2005-01-31 08:36
2005.03.13
Как считать данные с Com-овского CardReader-а ?


1-1109338253
serega_man
2005-02-25 16:30
2005.03.13
Как программировать параметры exe файлов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский