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

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

Можно ли узнать координаты p.x p.y мыши [Delphi, Windows]

RusSun ©   (2010-02-19 16:44:00) 

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

---

RusSun   (2010-02-19 18:11:00) [1]

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

---

Jon   (2010-02-19 17:00:00) [2]


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.


---

Наверх