Главная страница
    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.007 c
1-71254
maxim2
2002-08-12 08:35
2002.08.22
Как изменить шрифт и цвет шрифта у hint a ?


1-71108
anod
2002-08-12 13:40
2002.08.22
Почему-то не работает ?


3-70957
dimonf
2002-08-04 12:51
2002.08.22
Подскажите почему у меня не работает база данных под Windows XP?


14-71332
Hard
2002-07-26 15:08
2002.08.22
Почему драйвер видяхи слетает?


3-71030
kosm
2002-08-01 12:43
2002.08.22
Как недопустить возвращения пустых результатов запроса?





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