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

Советы » Мышка и Курсор » Подсветка компонента во время перемещения над ним мыши

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

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com