TStringGridでスクロールバーの「つまみ」の幅を調整するには？ (ID：3764)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

レスありがとうございます。

> 第２引数に、SB_HORZを入れれば水平スクロールバー、
> SB_VERTを入れれば垂直スクロールバーです。

…ハイ。一応そのへんもいじってはいるんですが…。

var
  si_v,si_h: TScrollInfo;
const
  max = 127;
begin
///vertical
  SendMessage(S_grid.Handle,WM_VSCROLL,MAKEWPARAM(SB_TOP,0),0);
  si_v.cbSize := SizeOf(TScrollInfo);
  si_v.fMask := SIF_RANGE or SIF_PAGE;
  si_v.nPage := (max*S_grid.VisibleRowCount) div (S_grid.RowCount-S_grid.VisibleRowCount);
  si_v.nMin := 0;
  si_v.nMax := max + si_v.nPage-1;
  SetScrollInfo(S_grid.Handle,SB_VERT,si_v,True);

///horizontal
  SendMessage(S_grid.Handle,WM_HSCROLL,MAKEWPARAM(SB_TOP,0),0);
  si_h.cbSize := SizeOf(TScrollInfo);
  si_h.fMask := SIF_RANGE or SIF_PAGE;
  si_h.nPage := (max*S_grid.VisibleColCount) div (S_grid.ColCount-S_grid.VisibleColCount);
  si_h.nMin  := 0;
  si_h.nMax  := max + si_h.nPage-1;
  SetScrollInfo(S_grid.Handle,SB_HORZ,si_h,True);

end;

…というようなメソッドを作ったことがあり、
実行直後にコレを呼び出せばうまくいくんです。
が、フォームをリサイズするとスクロールバーが消えるんですよね。
フォームのリサイズイベントを拾って、
これを実行しても、現象はかわらず。

このコードも正しいのかどうか良く分かってません。
まさにhalbowさんという方がdelphiMLで投稿してらした
ヤツを水平用に少し書き足しただけなので。

←解決時は質問者本人がここをチェックしてください。

戻る