Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 6
Всего онлайн: 6
Зарегистрировано юзеров: 5970
Комментариев на сайте: 630
Новый юзер: GeorgeKax



Последние комментарии
c
Theihpled прокомментировал "Урок 62 - Методы, наследование классов, операции с классами Delphi, (часть 4/6)":
Здравствуйте, Савельев Александр. У меня к вм небольшой вопрос по языку https://cloud.mail.ru/public/KFS1/dYUrFbaTU . Cпасибо за уроки.
Theihpled прокомментировал "Урок 54 - Потоки в Delphi, (часть 2/3)":
Кстати да. С потоками тоже ничего не вышло.



Мы в соцсетях
c
Delphi
Подсветка компонента во время перемещения над ним мыши

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

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 5 Января 2014
Просмотров: 127700


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.