Определить координаты курсора

Автор:

procedure TForm1.Button1Click(Sender: TObject);
var cur:TPoint;
begin
  Windows.GetCursorPos(Cur);
  ShowMessage('Координаты мыши: X='+IntToStr(cur.X)+'Y='+IntToStr(cur.Y));
end;

Просмотров: 10354

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.