Delphi-Help

Главная Статьи Мышка и Курсор Получить и задать координаты мыши

Получить и задать координаты мыши

Оцените материал
(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;

 

Прочитано 2700 раз

Авторизация



Счетчики