VPF::Подсветка кнопки - Форум программистов

ADAM83

Дата 14.10.2006, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 13.1.2006

Репутация: нет
Всего: нет

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

Код


Вы должны обрабатывать сообщения 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 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

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

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ADAM83

Дата 17.10.2006, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 13.1.2006

Репутация: нет
Всего: нет

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

Alexeis

Дата 17.10.2006, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 13.1.2006

Репутация: нет
Всего: нет

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »