| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

событие мыши

Батя ©   (2006-07-30 11:42:00) 

Здравствуйте!
Мне нужно отслеживать перемещение мыши за пределами моей формы, MouseMove для этих целей не подходит, помогите пожалуйсто.

---

Gydvin   (2006-07-30 12:40:00) [1]

завести цикл

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
   stop: boolean;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 a, b: tpoint;
begin
 stop := true;
 while stop do begin
   Windows.GetCursorPos(a);
   if (a.X > left) and (a.X < left + width) and (a.Y > top) and (a.y < top + height) then
     caption := 'FORM' else
   begin caption := 'NO FORM';
     if (a.X <> b.X) or (a.y <> b.y) then begin
       showmessage('Move');
       b := a;
     end;
   end;
//caption:=inttostr(a.X)+'x'+ inttostr(a.y) ;
   application.ProcessMessages;
   sleep(100);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 stop := false;
end;

end.


---

Zeqfreed   (2006-07-30 12:35:00) [2]

> [2] Батя   (30.07.06 12:21)

SetWindowsHookEx(WH_MOUSE…

---

Батя   (2006-07-30 12:21:00) [3]

Да это я знал, а мне надо не координаты п поймать событие когда мышка передвинулась в не формы. Спасибо

---

Rial   (2006-07-30 12:01:00) [4]

Windows.GetCursorPos();

---

Наверх