헤헤헤....
stringgrid에서 보면 rowcount가 변경되다 보면 scrollbar가 자동으로 생성되지 않습니까? (stringgrid1.ScrollBars = ssVertical)
근데 궁금한거는 이 scrollbar를 제어하는 방법이 엄는가 입니다...
min, max value라든지 Thumb의 크기라든지 현재의 position등을 지정하거나 값을 얻어오거나 등등...
애초에 요놈의 scrollbar 를 얻어오는 방법을 모르니 어떠한 행위를 지정할 수가 없네요...
혹 아시는 분은 연락부탁드립니다....
※ 어떤 인간이 요놈이 너무 작다나 모라나...왜 아웃룩처럼 안되냐고 XX하더라구요...(죄송...욕해서...근데 그 인간한테 화가 나서리..)
도움이 되시기를..
procedure TForm1.Button1Click(Sender: TObject);
var
info: TScrollInfo;
begin
fillchar(info, sizeof(info), 0);
with info do
begin
cbsize := sizeof(info);
fmask := SIF_ALL;
GetScrollInfo( StringGrid1.handle, SB_VERT, info );
fmask := fmask or SIF_PAGE;
//'page'당 다루려는 셀의 수 값이 커질수록 Thumb의 크기가 커짐
//info.nmax : 최대값
//info.nmin : 최소값
nPage := 10 * (nmax-nmin) div StringGrid1.RowCount;
end;
setscrollinfo(StringGrid1.handle, SB_VERT, info, TRUE);
end;