Форум: "Основная";
Поиск по всему сайту: 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.019 c
4-42590           Jaya!                 2001-11-10 07:33  2002.01.14  
Смена раскладки клавиатуры


3-42343           Alexsandr             2001-12-10 04:33  2002.01.14  
вопрос


4-42594           foks                  2001-11-11 09:28  2002.01.14  
function AppendMenu(Menu: HMenu; Flags, IDNewItem: PChar): Bool;


1-42508           nikols                2001-12-26 10:47  2002.01.14  
Как русифицировать QuickReport?


1-42438           artur                 2001-12-24 16:04  2002.01.14  
какой delphi устанавливается на win2000