キャプションバーの幅

解決

モス 2008-01-08 14:03:06 No: 29220 IP: 192.*.*.*

閉じるボタン等のウィンドウ右上にあるボタン郡を除いた
キャプションバーの幅（ドラッグキャプチャーを受け付ける部分）
のみを取得したいのですが
キャプションバーについてるボタン郡の幅または
それを除いた幅は取得できるのでしょうか？

KHE00221 2008-01-08 14:34:50 No: 29221 IP: 192.*.*.*

キャプションバーのボタンのサイズは

GetSystemMetrics(SM_CXSIZE));

で求められます

>キャプションバーの幅（ドラッグキャプチャーを受け付ける部分）

ですが

ボタンが表示されている場所もドラッグキャプチャーを受け付ける部分です。

編集削除

モス 2008-01-08 14:57:02 No: 29222 IP: 192.*.*.*

すいません言葉足らずだったようです
WM_SYSCOMMANDのSC_MOVEが通知される範囲と言う意味です。
Formを持てる部分？
ボタンの数*GetSystemMetrics(SM_CXSIZE))+余白のピクセル
と言うのが成立するみたいなので最悪でもこれでいけそうです。
ありがとうございます

編集削除

モス 2008-01-08 15:29:46 No: 29223 IP: 192.*.*.*

すいませんプラットフォームによっては成立しませんでしたとさ。。

編集削除

Fusa 2008-01-11 13:05:01 No: 29224 IP: 192.*.*.*

横幅サイズから
システムアイコンや右上のボタンサイズを引けばいいのかな。

参考になるかもしれませんので
リンクを書いておきます。

めもニャンだむ:非矩形なフォーム（３）
http://blog.livedoor.jp/junki560/archives/18042687.html

編集削除

モス 2008-01-11 13:28:03 No: 29225 IP: 192.*.*.*

2000上ではそれで大丈夫なんですけど
XPとかVistaだとクラシックスタイル限定になってしまうのです
スペース幅とかボタンの幅が違くって
自前でCaptionBar作れって事ですかね？

編集削除

n 2008-01-12 21:53:42 No: 29226 IP: 192.*.*.*

キャプションバーの端から1ピクセルずつ WM_NCHITTEST で調べてみるとか

編集削除

みんみん 2008-01-14 23:16:49 No: 29227 IP: 192.*.*.*

>キャプションバーの端から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;

編集削除

モス 2008-01-16 17:30:15 No: 29228 IP: 192.*.*.*

Top +5がVistaだと依存してしまいますが
OSによってHTSYSMENUやHTLEFTやHTTOPLEFT
等返されるので枠線やアイコンを考慮する事で
CaptionBarの開始位置と終了位置が
ちゃんと取得できたっポイ！ので解決とします
ありがとうございましたとさ

編集削除

モス 2008-01-16 17:31:21 No: 29229 IP: 192.*.*.*

チェック忘れ〜

編集削除