Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Событие CM_MOUSELEAVE... [D6, Win2k]

Страницы: < 1 2
urich © (2002-06-04 15:48:00)
Есть на форме обычная метка - label1. Хочется менять цвет шрифта при наведении и при уходе мыши с компонента. Я начинающий, поэтому может мой вопрос покажится многим глупым, но может кто-нибудь снизайдет до меня и подскажет как это реализовать... Спасибо...

urich (2002-06-04 16:31:00) [21]
Про наследника: я должен создать модуль, например MyLabel.pas, в котором должен описать TMyLabel= class(TLable), Потом в protection добавить procedure CMMouseLeave(var Msg: TMessage);message cm_MouseLeave;Так? Если так, то как мне это все потом вызвать из своей проги?

MBo (2002-06-04 16:29:00) [22]
>urich
заменить в примере из ссылки image на label и будет счастье ;)

Игорь Шевченко (2002-06-04 16:26:00) [23]
Писать наследника - геморроя на 10 минут.

urich (2002-06-04 16:21:00) [24]
Как у Вас, мастеров, все просто - "писать наследника" - опять на полдня гемороя... Но все равно - СПАСИБО. Порядочный сайт, хочу Вам сказать. Молодцы.

urich (2002-06-04 16:19:00) [25]
Пардон, данную проблемму решаю в D4...

MBo (2002-06-04 16:19:00) [26]
>urich
Ну если все-таки нет в 6-ке этого event, то надо делать наследника, все в ссылке есть.

urich (2002-06-04 16:16:00) [27]
to Dima-k17: Либо я этого события не вижу, либо его нет...
to MBo: Т.е. если я понял правильно, нужно написать компонент-наследник от LABEL, и каким-то макаром добавить ему это событие? Так?

MBo (2002-06-04 16:15:00) [28]
>в Delphi6 все это есть
у меня 5, вот я и не знал ;(

Dima-k17 (2002-06-04 16:14:00) [29]
Народ, в Delphi6 все это есть, и ничего там не надо писать.

Dima-k17 (2002-06-04 16:13:00) [30]
На событии OnMouseMove пишешь:

label1.font.color:=clred;

на событии OnMouseLeave:

label1.font.color:=clblack;

С уважением Dima-k17.

MBo (2002-06-04 16:12:00) [31]
то-то и оно, что нету (на самом деле скрыто) - придется свой компонент писать, вводя это событие.

urich (2002-06-04 16:10:00) [32]
; procedure CMMouseLeave(var msg: TMessage); message СM_MOUSELEAVE;- это я могу написать, но когда эту процедуру нужно вызывать? Нету у label события Onleave???

urich (2002-06-04 16:05:00) [33]
Не, я для такого ДУБОВАт... И не хочу брать чужие компоненты, хочется самому разобраться: откуда идет сообщение, где его ловить, как его обработать... Не подскажите? а?

MBo (2002-06-04 15:56:00) [34]
http://www.swissdelphicenter.ch/en/showcode.php?id=1068

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »