掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームの移動を検出するには (ID:9502)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>しかし、これだと移動中、ずっとイベントが起きてしまいます。 にゃるほどにゃ〜 下のような設定にゃらば、そういうことが起きるにゃ〜 >「画面のプロパティ」、「効果」の >「ウィンドウの内容を表示したままドラッグする」にチェック にゃ〜も、そういう設定してるんにゃら、ドラッグ中にForm2が一緒に移動した方がいいと思うけどにゃ〜 ん？どうしても Form1のドラッグ終了時に Form2を移動させたいのかにゃ〜？ それはワガママというものだにゃ〜 private procedure WMNCLBUTTONDOWN(var Msg: TWMNCLBUTTONDOWN); message WM_NCLBUTTONDOWN; end; procedure TForm1.WMNCLBUTTONDOWN(var Msg: TWMNCLBUTTONDOWN); begin inherited; if Msg.HitTest = HTCAPTION then begin if Assigned(Form2) then begin Form2.Top := Form1.Top + Form1.Height; Form2.Left := Form1.Left; end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.