Перейти к содержанию
Fire Monkey от А до Я
  • 0

Глобальные и локальные координаты позиции курсора


denprox

Вопрос

Доброго времени суток! Подскажите, каким образом можно узнать глобальные координаты курсора в момент нажатия по TImage (например). К примеру на форме лежит TImage, при нажатии (OnMouseDown) можно узнать координаты X,Y в пределах этого Image (локальные), а как узнать X,Y относительно главной формы ?  

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Спасибо! То что нужно! 

Вот рабочий пример:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
var
   AbsoluteMousePos: TPointF;
   LocalMousePos: TPointF;
begin
Label1.Text := 'X: '+FloatToStr(X); //Координаты в пределах объекта
Label2.Text := 'Y: '+FloatToStr(Y);

LocalMousePos := TPointF.Create(X, Y);
AbsoluteMousePos := Panel1.LocalToAbsolute(LocalMousePos);

Label3.Text := 'gX: '+ FloatToStr(AbsoluteMousePos.X); //Координаты относительно формы
Label4.Text := 'gY: '+ FloatToStr(AbsoluteMousePos.Y);

 

Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...