Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Подсветка кнопки

Автор: ADAM83 14.10.2006, 13:53

Доброй сутки всем!
Мне надо сделать так, чтоб подсвечивалась кнопка во время перемещения над ней указателя мыши.
Нашел такой код, но никак не врубился, что-то не понятно.

Код


Вы должны обрабатывать сообщения CM_MOUSEENTER и CM_MOUSELEAVE примерно таким образом:
TYourObject = class(TAnyControl)
   ...
   private
   FMouseInPos: Boolean;
   procedure CMMouseEnter(var AMsg: TMessage); message CM_MOUSEENTER;
   procedure CMMouseLeave(var AMsg: TMessage); message CM_MOUSELEAVE;
   ...
 end;
 
 implementation
 
 procedure TYourObject.CMMouseEnter(var AMsg: TMessage);
 begin
   FMouseInPos := True;
   Refresh;
 end;
 
 procedure TYourObject.CMMouseLeave(var AMsg: TMessage);
 begin
   FMouseInPos := False;
   Refresh;
 end;
...затем читать параметр FMouseInPos при прорисовке области компонента или использовать иное решение.

Кто нить может обяснить по проще, спасибо заранее.

Автор: Alexeis 14.10.2006, 14:37

ADAM83, CM_MOUSEENTER - вызывается когда мышь первый раз попадает на контрол
CM_MOUSELEAVE - вызывается когда мышь уходит из области контрола

Автор: ADAM83 17.10.2006, 12:39

alexeis1, ну это мне уже было понятно, а вот class(TAnyControl) что за класс, TAnyControl что за тип или можно произвольный тип указать?
И вот этот код под себя можно ли переделать, если да, как? У кого нибудь есть примерчик?

Автор: Alexeis 17.10.2006, 13:29

TAnyControl - это наследник TControl или любго другого из его наледников, напимер TWinControl, TGraphicControl, TCustumEdit, TMemo и т.д.

Цитата(ADAM83 @ 17.10.2006, 12:39

)

И вот этот код под себя можно ли переделать, если да, как? У кого нибудь есть примерчик?

Написать свой класс - наследник от любого из наследников TControl, например TButton и добваить к нему указаные обработчики событий. В них уже можно реализовывать, необходимые действия.

Добавлено @ 13:31

Цитата(ADAM83 @ 17.10.2006, 12:39

)

У кого нибудь есть примерчик?

на конкретном класе что ли?

Автор: ADAM83 17.10.2006, 15:52

Решение проблемы нашел
Вместо Лабела создал Баттон (новый) и все работает.
Мне просто надо было отловить события с мышкой, а дальше я сам настраивал бы. Ну как бы скажем получил то что хотел. Спасибо всем за то что откликнулись.