Q&A

  • stringgrid내에 생성되는 scrollbar를 제어하는 방법은?
헤헤헤....

stringgrid에서 보면 rowcount가 변경되다 보면 scrollbar가 자동으로 생성되지 않습니까? (stringgrid1.ScrollBars = ssVertical)

근데 궁금한거는 이 scrollbar를 제어하는 방법이 엄는가 입니다...
min, max value라든지 Thumb의 크기라든지 현재의 position등을 지정하거나 값을 얻어오거나 등등...

애초에 요놈의 scrollbar 를 얻어오는 방법을 모르니 어떠한 행위를 지정할 수가 없네요...

혹 아시는 분은 연락부탁드립니다....


※ 어떤 인간이 요놈이 너무 작다나 모라나...왜 아웃룩처럼 안되냐고 XX하더라구요...(죄송...욕해서...근데 그 인간한테 화가 나서리..)
2  COMMENTS
  • Profile
    최석기 2002.04.13 19:53
    지금 테스트 해보구 올립니다..

    도움이 되시기를..

    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;

  • Profile
    김정수 2002.04.13 21:06
    우와...

    감사합니다...

    정말루요... 죽어라 찾아도 몰르겠던데...

    정말로 세상은 넓고 고수는 많은가 보네요...

    더 열심히 공부하겠습니다...

    또 감사~~~거듭 거듭 거듭...

    만수무강하옵소서...