Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];



Вниз

Контроль за перемещениями мышки. 

Dim   (2001-12-24 14:23) [0]

Приветствую всех. Вопрос в том как узнать, что мыша покинула пределы Control"а.

---

BWG   (2001-12-24 15:04) [1]

Сравнить текущие координаты мыши и координаты Control`а

---

Dim   (2001-12-24 15:19) [2]

Прошу прощения за вопрос, но где взять текущие координаты.

---

Sergey_n   (2001-12-25 00:39) [3]

Из справки D4
The GetCursorPos function retrieves the cursor"s position, in screen coordinates.

BOOL GetCursorPos(LPPOINT l pPoint ); // address of structure for cursor position

Parameters

lpPoint

Points to a POINT structure that receives the screen coordinates of the cursor.

Object.ScreenToClient Привести к координатам объекта

---

Dimka Maslov   (2001-12-25 09:44) [4]

Обрабатывай сообщения CM_MOUSEENTERи CM_MOUSELEAVE. Первое сообщение передаётся контролу, когда мышь на него находит, второе - когда уходит.

type
TMouseSensitiveControl = class (TSomeControlDescendant)
private
FMouseHover: Boolean;
procedure CMMouseEnter( var Message); message CM_MOUSEENTER;
procedure CMMouseLeave( var Message); message CM_MOUSELEAVE;
public
property MouseHover: Boolean read FMouseHover;
end;

procedure TMouseSensitiveControl.CMMouseEnter( var Message);
begin
FMouseHover:=True;
inherited;
end;

procedure TMouseSensitiveControl.CMMouseLeave( var Message);
begin
FMouseHover:=False;
inherited;
end;

---

Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.72 MB
Время: 0.021 c