掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Panelの上にあるEdit1のForm上の位置を知るには？ (ID:46045)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はい． //----------------------------------------------------------------------------- // Edit1のForm1上の位置を計算 // 動作確認 Windows 7 U64(SP1) + Delphi XE5(UP2) Pro FireMonkey HD //----------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var APointF : TPointF; begin APointF := Edit1.LocalToAbsolute(PointF(0, 0)); ShowMessage(IntToStr(Trunc(APointF.X))); end; //----------------------------------------------------------------------------- // Edit1のForm1上の位置を計算 // 動作確認 Windows 7 U64(SP1) + Delphi XE Pro //----------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var APoint : TPoint; begin APoint := Edit1.ClientToParent(Point(0, 0), Form1); ShowMessage(IntToStr(APoint.X)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.