Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как отловить событие наведения и увода указателя мыши с формы? [D6, 2000, XP]

Mishenka © (2007-01-22 17:00:00)
Нужно чтобы при наведении на форму указателя мыши она меняла прозрачность, а при уводе всё возвращалось обратно. Как отловить событие наведения и увода указателя мыши с формы?

Elen (2007-01-23 10:57:00) [1]
Удалено модератором
Примечание: Флудить завязываем

viper03 (2007-01-23 10:54:00) [2]
Я тоже как-то спрашивал про такое...

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;

tesseract (2007-01-23 10:36:00) [3]

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

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

Elen (2007-01-23 10:20:00) [4]

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

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

TCrash (2007-01-23 10:03:00) [5]
OnMouseMove + GetCursorPos + Form.Left + Form.Top

+RTFM :))

zdm (2007-01-23 09:23:00) [6]
Или поставить BDS2006 там есть ;)

Elen (2007-01-23 09:16:00) [7]

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

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

Mishenka (2007-01-23 08:59:00) [8]

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

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

tesseract (2007-01-22 17:20:00) [9]

> Mishenka (22.01.07 17:18) [2]

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

Mishenka (2007-01-22 17:18:00) [10]

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

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

tesseract (2007-01-22 17:13:00) [11]

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

OnMouseLeave/OnMouseEnter

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »