掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Ｅｄｉｔをドラッグするには？ (ID:31303)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなのは？ タイトルバーのないフォームを移動させるコードを利用 procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (ssLeft in Shift) and (Sender is TWinControl) then begin ReleaseCapture; //こちらか SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, SC_MOVE or 2, MAKELONG(X,Y)); //こちら、好きにすればいい //TWinControl(Sender).Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0); end; end; 自由に移動するモードのときだけ有効にしないといけません。 常に移動もできて、入力とかも自由に行いときは、ｄｒｔさんの言うとおり Panelでも置いて、掴める場所を固定しないといけないね
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.