掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームの移動を検出するには (ID:9498)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自前で WM_MOVE メッセージを捕まえます。 type TForm1 = class(TForm) Label1: TLabel; private { Private 宣言 } public procedure WMMove(var Msg:TWMMove);message WM_MOVE; end; var Form1: TForm1; implementation {$R *.DFM} { TForm1 } procedure TForm1.WMMove(var Msg: TWMMove); begin Label1.Caption := Format('Left = %d Top := %d',[Left,Top]); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.