キャプションバーの幅 (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;