Форум: "KOL";
Текущий архив: 2018.01.28;
Скачать: [xml.tar.bz2];
ВнизМожно ли узнать координаты 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 вся ветка
Форум: "KOL";
Текущий архив: 2018.01.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.001 c