掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
bsNoneフォームを画面の外（上側）にはみ出させるには？ (ID:19223)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>SendMessage(self.Handle, WM_NCLBUTTONDOWN, HTCAPTION,0); WM_NCLBUTTONDOWN はクライアント以外の場所で発生するメッセージです． したがって，上の関数は，Formのキャプション以外をクリックしても，キャ プションをクリックしたのと同じとなりますので，質問の動作となります． これをさけるためには，実際にFormのどこでもクリックして移動できるよう にする必要があります．例えば以下の様に． //定義場所は用途に応じてどこでも protected procedure WMLBUTTONDOWN(var message: TWMLBUTTONDOWN);message WM_LBUTTONDOWN; public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} { TForm2 } procedure TForm1.WMLBUTTONDOWN(var message: TWMLBUTTONDOWN); begin SendMessage(Handle, WM_SYSCOMMAND, SC_MOVE or 2, 0); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.