Как получить координаты указателя мыши относительно формы в Дельфи

Delphi , ОС и Железо , Мышка и Курсор

Существует такой тип, как TMouse, который передаёт координаты мышки в любое время, так что помести в обработчик события нажатия мыши на форме его вызов. Подробнее смотри в хелпе.

Лучше говорить, что существует объект класса TMouse, на него ссылается глобальная переменная Mouse из модуля Controls... А то человек кинется создавать свой экземпляр...

procedure TForm1.FormClick(Sender: TObject);
var
  MyMouse: TMouse;
begin
  Form1.Caption := inttostr(MyMouse.CursorPos.x) + 'Х ' +
  inttostr(MyMouse.CursorPos.y);
end;

Вот перевод текста на русский язык:

Вы пытаетесь получить координаты курсора мыши относительно формы в Delphi, создавая обработчик события для события FormClick, и используете объект TMouse для получения координат.

Однако, у вашего кода есть несколько проблем:

1. Переменная MyMouse объявлена как локальная переменная, но не инициализируется перед использованием.
2. Свойство CursorPos объекта TMouse возвращает позицию курсора на экране, а не относительно формы.

Вот альтернативное решение, которое должно работать:

procedure TForm1.FormClick(Sender: TObject);
begin
  Caption := IntToStr(Cursor.X) + ' Х ' + IntToStr(Cursor.Y);
end;

В этом коде:

• Мы используем свойство Cursor объекта TForm, которое возвращает структуру TPoint, содержащую позицию курсора относительно формы.
• Мы преобразуем свойства X и Y структуры TPoint в строки с помощью функции IntToStr.

Обратите внимание, что этот код обновляет заголовок формы координатами мыши каждый раз, когда пользователь кликает на форму. Если вы хотите получить только начальную позицию курсора, вы можете использовать аналогичный подход в событии FormCreate вместо этого.

В статье описывается, как получить координаты указателя мыши относительно формы в Delphi, используя объект класса TMouse и обработчик событий нажатия мыши на форме.

Комментарии и вопросы

:: Главная :: Мышка и Курсор ::