FireMonkeyのマウス座標 (ID:151094)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 私は次の様にしています。外していましたら、ごめんなさい。 フォーム起動時にフォームの幅を取得します。同時にスケールを1としておきます。 FStartWidth := Self.Width; FScale := 1; もしフォームがリサイズされた場合はスケールを再計算します。 FResizedWidth := Self.Width; FScale := FResizedWidth / FStartWidth; procedure TForm1.Rectangle1.OnMouseLeave(Sender: TObject); var posMouse: TPointF; aplPos: Single; sclPos: Single; begin posMouse := Screen.MousePos; // マウスの座標を取得 aplPos := posMouse.X - Self.Left; // アプリ上の座標を求めているつもりです sclPos: aplPos / FScale; // スケールを考慮したＸ座標 // Ｘ座標が規定値を超えた場合の処理 if sclPos > 100 then Rectangle.Width := 0; end; 外していたらすみません。また、もっと簡単な方法がきっとあるかと思います。