Текущий архив: 2018.01.28;
Скачать: CL | DM;

Вниз

Можно ли узнать координаты p.x p.y мыши   Найти похожие ветки 

← →
RusSun ©   (2010-02-19 16:44) [0]

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

---

← →
Jon ©   (2010-02-19 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 ©   (2010-02-19 18:11) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2018.01.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.003 c