Как отловить событие наведения и увода указателя мыши с формы?

← →
Mishenka (2007-01-22 17:00) [0]

Нужно чтобы при наведении на форму указателя мыши она меняла прозрачность, а при уводе всё возвращалось обратно. Как отловить событие наведения и увода указателя мыши с формы?

← →
tesseract © (2007-01-22 17:13) [1]

> а при уводе всё возвращалось обратно. Как отловить событие
> наведения и увода указателя мыши с формы?

OnMouseLeave/OnMouseEnter

← →
Mishenka (2007-01-22 17:18) [2]

> tesseract © (22.01.07 17:13) [1]
> OnMouseLeave/OnMouseEnter

У TForm, таких событий нет...

← →
tesseract © (2007-01-22 17:20) [3]

> Mishenka (22.01.07 17:18) [2]

Да не по моей справке опубликованы даже. Ну можешь просто кинуть панель на форму и смотерть по её событиям.

← →
Mishenka (2007-01-23 08:59) [4]

> tesseract © (22.01.07 17:20) [3]
> Да не по моей справке опубликованы даже. Ну можешь просто
> кинуть панель на форму и смотерть по её событиям.

А в TPanel этих событий тоже нету

← →
Elen © (2007-01-23 09:16) [5]

> А в TPanel этих событий тоже нету

Эти события ты должен сам организовать через директиву message

← →
zdm © (2007-01-23 09:23) [6]

Или поставить BDS2006 там есть ;)

← →
TCrash (2007-01-23 10:03) [7]

OnMouseMove + GetCursorPos + Form.Left + Form.Top

+RTFM :))

← →
Elen © (2007-01-23 10:20) [8]

> OnMouseMove + GetCursorPos + Form.Left + Form.Top

А не проще cm_MouseLeave(Enter) ?

> Эти события ты должен сам организовать через директиву message

У TControl должны же быть? Опубликовать значит можно. Хотя щас нет под рукой справки по D6.

Я тоже как-то спрашивал про такое...

type
TExtListBox = class(TListBox)
private { Private declarations }
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
published
{ Published declarations }
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
end;

procedure TExtListBox.CMMouseEnter(var Message: TMessage);
begin
if Assigned(FOnMouseEnter) then
FOnMouseEnter(Self);
end;
procedure TExtListBox.CMMouseLeave(var Message: TMessage);
begin
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;

Удалено модератором
Примечание: Флудить завязываем

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