掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キャプションバーの幅 (ID:29227)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>キャプションバーの端から1ピクセルずつ WM_NCHITTEST で調べてみるとか 以下のようにやってみましたが、やはりXPだと最小化ボタンの幅だけ 長くなってしまいます。 クラシックスタイルならうまくいきますが... XPでは、 GetSystemMetrics(SM_CXSIZE)) でボタン一個分引けばちょうどいいようです。 procedure TForm1.Button1Click(Sender: TObject); var i, HitCode, CapWidth: integer; pt: TSmallPoint; begin CapWidth :=0; for i :=0 to Width -1 do begin pt :=SmallPoint(Left + i, Top + 5); HitCode :=DefWindowProc(Handle, WM_NCHITTEST, 0, integer(Pt)); if HitCode =HTCAPTION then Inc(CapWidth) else begin if CapWidth <> 0 then Break; end; end; ShowMessage(IntToStr(CapWidth)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.