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

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 7
Всего онлайн: 7
Зарегистрировано юзеров: 7317
Комментариев на сайте: 659
Новый юзер: zhoraDral



Последние комментарии
c
dealrattKi прокомментировал "Урок 3 - Конструкция IF...THEN...ELSE":
Всем привет я сегодня увидел что в 1xbet можно получить повышенный бонус и что, для его получения, нужно ввести специальный промокод. Какой промокод на 1xbet нужно вводить?
YonqDox прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[url=https://clck.ru/DwfTp]Hacker Forum "Творческая Лаборатория DedicateT"[/url]

Подсветка компонента во время перемещения над ним мыши

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


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