[friz]

Пишу запоминальщик действий и мне необходимо определить координаты клика мыши вне формы программы. т.е. ту позицию куда кликнул пользователь.
Как такое реализовать максимально просто?

[movnet]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)    Memo1: TMemo;    procedure FormCreate(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction); end;   var   Form1: TForm1;   implementation   {$R *.dfm}   var MouseHook: HHOOK;   function LowLevelMouseProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall; begin Result := CallNextHookEx(MouseHook, nCode, WParam, LParam); case WParam of    WM_LBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась левой кнопкой.');    WM_LBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась левой кнопкой.');    WM_LBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась левой кнопкой.');    WM_RBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась правой кнопкой.');    WM_RBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась правой кнопкой.');    WM_RBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась правой кнопкой.');    WM_MBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась средней кнопкой.');    WM_MBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась средней кнопкой.');    WM_MBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась средней кнопкой.');    WM_MOUSEMOVE: Form1.Memo1.Lines.Add('Мыша побежала.');    WM_MOUSEWHEEL: Form1.Memo1.Lines.Add('Мыша тащиться.'); else    Form1.Memo1.Lines.Add('Мыша сошла с ума, купите новую мышу.'); end;   end;             procedure TForm1.FormCreate(Sender: TObject); const  WH_MOUSE_LL = 14; begin MouseHook := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, HInstance, 0); end;        procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin UnhookWindowsHookEx(MouseHook); end; end.

Тож самое и на клавиатуру, код хука - Цифра 13 Соответственно принимай уже мессаги от клавиатуры...

[movnet]

Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.

Код:

1 2 3 4 5 6 7

procedure Form1.Button1Click(Sender: TObject); var  foo: TPoint; begin  GetCursorPos(foo);  ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')'); end;

[friz]

я уже сделал, правда чуть другим способом. но все равно спасибо!
p.s. сохраню, пусть валяется в архиве