| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
| |  | | | | ПОЛУЧИТЬ И ЗАДАТЬ КООРДИНАТЫ МЫШИ | | | | | | procedure TForm1.Button1Click(Sender: TObject);
var
MausePos: TPoint;
begin
GetCursorPos(MausePos); {получение координат мыши}
label1.Caption := IntToStr(MausePos.x);
label2.Caption := IntToStr(MausePos.y);
end; | | | | | | procedure TForm1.Button2Click(Sender: TObject);
begin
SetCursorPos(500, 500); {установка стрелки мыши в позицию 500,500}
end; |
|
