Скачать: CL | DM;

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

← →
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) ?

---

← →
tesseract ©   (2007-01-23 10:36) [9]

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


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

---

← →
viper03 ©   (2007-01-23 10:54) [10]

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

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;

---

← →
Elen ©   (2007-01-23 10:57) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.029 c