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

Вниз

Как лучше сделать ?   Найти похожие ветки 

 
SemFLY   (2002-08-09 14:55) [0]

Задача такая...
У меня есть Label и мне надо в то время, когда курсор мыши находится на нём, чтобы Label светился белым, а когда не на нём светился серым. Прописать изменение цвета в событие OnMouseMove конечно можно, но тогда на прилегающих объектах к Label мне надо прописывать изменение цвета на серый.
Вопрос: Есть ли какой-нибудь другой способ решения этой задачи ?
Кроме события OnMouseMove.

Спасибо !
- - - - - - - - - - - - -
P.S. Если не трудно, то можно пример.


 
Skier   (2002-08-09 14:57) [1]

>SemFLY


> Есть ли какой-нибудь другой способ решения этой задачи ?
>


Сообщения CM_MOUSELEAVE и CM_MOUSEENTER


 
SemFLY   (2002-08-09 15:16) [2]

Skier, Я так понимаю, что это API-шные функции, глянул в Help"e Windows SDK (в делфийском Help"е тоже смотрел, а вдруг... ;)), там таких нет, поробовал изменить написание, тоже не нашел. Может они не так называются ?


 
Skier   (2002-08-09 15:20) [3]

>SemFLY
Всё так. см. Controls.pas
В частности :


procedure TControl.CMMouseEnter(var Message: TMessage);
begin
if FParent <> nil then
FParent.Perform(CM_MOUSEENTER, 0, Longint(Self));
end;

procedure TControl.CMMouseLeave(var Message: TMessage);
begin
if FParent <> nil then
FParent.Perform(CM_MOUSELEAVE, 0, Longint(Self));
end;


 
Opuhshii   (2002-08-09 15:26) [4]

это VCLные мессаджи,..
CM_BASE = $B000;
CM_MOUSEENTER = CM_BASE + 19;
CM_MOUSELEAVE = CM_BASE + 20;



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

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

Наверх





Память: 0.45 MB
Время: 0.006 c
1-71170
Uran
2002-08-13 16:01
2002.08.22
ЗАпись CDR


1-71082
cherepovets
2002-08-12 12:13
2002.08.22
Windows NT


1-71093
Skyslider
2002-08-12 14:53
2002.08.22
Как создать карту


1-71190
Holodilnik
2002-08-09 13:45
2002.08.22
сортировка в TreeView русских букв


1-71254
maxim2
2002-08-12 08:35
2002.08.22
Как изменить шрифт и цвет шрифта у hint a ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский