Форум: "Основная";
Поиск по всему сайту: 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.028 c
6-42531           RealMan               2001-10-19 17:06  2002.01.14  
Удалённый запуск программы


7-42584           Leon                  2001-08-23 22:17  2002.01.14  
Серийный номер материнской платы


1-42453           dolphin               2001-12-25 02:01  2002.01.14  
преобразование


1-42474           fliz                  2001-12-25 12:55  2002.01.14  
Запись в поток (SaveToStream) перестала работать после переноса проги на Вин2000.


4-42629           Pal-nod               2001-11-15 17:56  2002.01.14  
Где можно найти в РУНЕТЕ нормальное