Delphi Firemonkeyアプリケーションでコントロールの位置(座標)を取得するには

Delphi Firemonkeyアプリケーションでは、コントロールのPositionプロパティは、親コンポーネント上のコントロールの位置を返します。
コントロールのLocalToAbsoluteメソッドは、フォーム上のコントロールの位置を返します。

procedure TForm1.Button1Click(Sender: TObject);
var
  Point: TPointF;
begin
  Point := Button1.LocalToAbsolute(PointF(0, 0));
  // Button1の親コンポーネント上の座標
  Memo1.Lines.Add(Format('Button1.X=%f, Button1.Y=%f', [Button1.Position.X, Button1.Position.Y]));
  // Button1のフォーム上の座標
  Memo1.Lines.Add(Format('Point.X=%f, Point.Y=%f', [Point.X, Point.Y]));
end;

LocalToAbsolute

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください