Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:13 PM
Начало » Статьи » Работа с мышью

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

Категория: Работа с мышью | Добавил: Admin (2006-12-17) | Автор: delphi
Просмотров: 1561 | Рейтинг: 5.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: