掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Panelを自由に移動するには？ (ID:29478)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォームのバーと見せかけるならば・・・・ procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then begin if Sender is TWinControl then begin ReleaseCapture; SendMessage(TWinControl(Sender).Handle, WM_NCLBUTTONDOWN, HTCAPTION,0); end; end; end; これでだけで良いんだよ？ ただドラック中のMouseDownとかマウスの放し時のMouseUpが発生しないので 処理したい場合には無理だけど
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.