PHP DM Gate v0.9 » Можно ли узнать координаты p.x p.y мыши <span class="vd">[Delphi, Windows]</span>

RusSun © (19.02.10 16:44) [0]

Доброе время суток.
Уважаемые мастера.
Можно ли узнать координаты p.x p.y мыши за пределами
приложения (имеется ввиду рабочий стол)
И потом передать в Editbox1,Editbox2?
Небольшой пример приветствуется;)

<Цитата>
Jon © (19.02.10 17:00) [1]

program MouseXY;

uses
Windows, KOL;

var
Editbox: PControl;
Timer: pTimer;

procedure TimerTick(Dummy: Pointer; Sender: PObj);
var
Point: TPoint;
begin
GetCursorPos(Point);
Editbox.Text := Int2Str(Point.X) + ' : ' + Int2Str(Point.Y);
end;

begin
Applet := NewForm(nil,'Mouse XY');
Editbox := NewEditbox(Applet,[eoReadonly]).ResizeParent;
Timer := NewTimer(40);
Timer.OnTimer := TOnEvent(MakeMethod(nil,@TimerTick));
Timer.Enabled := True;
Run(Applet);
end.

<Цитата>
RusSun © (19.02.10 18:11) [2]

So quickly responded
Thank you:)
exactly what I need:)

<Цитата>