Событие наведения указателя мышки к кнопке на форме

← →
СержК (2006-10-19 16:36) [0]

Мастера,
может кто подкинет идейку как обработать событие наведения указателя мышки к кнопке находящейся на форме.

Видел в готовом виде, но как это сделано не пойму...

← →
Elen © (2006-10-19 16:39) [1]

> СержК

TButton.OnMouseMove уже не катит?

← →
Dmitrij_K (2006-10-19 16:40) [2]

unit ExtButton; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TExtButton = class(TButton) private { Private declarations } FOnMouseLeave: TNotifyEvent; FOnMouseEnter: TNotifyEvent; procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; protected { Protected declarations } public { Public declarations } published { Published declarations } property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave; property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter; end; procedure Register; implementation procedure Register; begin RegisterComponents("ExtControl", [TExtButton]); end; { TExtSpeedButton } procedure TExtButton.CMMouseEnter(var Message: TMessage); begin if Assigned(FOnMouseEnter) then FOnMouseEnter(Self); end; procedure TExtButton.CMMouseLeave(var Message: TMessage); begin if Assigned(FOnMouseLeave) then FOnMouseLeave(Self); end; end.

← →
Dmitrij_K (2006-10-19 16:41) [3]

OnMouseLeave - мышка покинула приделы кнопки
OnMouseEnter - соответственно на кнопке

← →
СержК (2006-10-19 16:46) [4]

Огромное спасибо за совет!
Сейчас буду разбираться.

Событие наведения указателя мышки к кнопке на форме Найти похожие ветки