Q&A

  • 디비그리드~~관련
델파이 7.0 사용중입니다.
문제는 DBGrid 에 레코드가 많이 있을때,,
마우스 가운데 돌리는거(^^)를 아무리 돌려도 DBGrid 가 밑으로 내려가지
않습니다.

이거 버그 아닌지,,, 이럼 안되는건데~~
(왜 그런건지!!!)

이거 어떻게 해결할수 없는지요?
1  COMMENTS
  • Profile
    박지용 2006.03.24 07:47



    버그는 아니고 기능지원이 되지 않는 겁니다.-.-

    아래내용을 참고하세요.^^

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    private
      OldGridProc: TWndMethod;
      procedure GridWindowProc(var Message: TMessage);
    //...

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      OldGridProc        := DBGrid1.WindowProc;
      DBGrid1.WindowProc := GridWindowProc;
    end;

    procedure TForm1.GridWindowProc(var Message: TMessage);
    var
      Pos: SmallInt;
    begin
      OldGridProc(Message);
      if Message.Msg = WM_VSCROLL then  //or WM_HSCROLL
      begin
        Pos          := Message.WParamHi;  //Scrollbox position
        Table1.RecNo := Pos;
      end;
    end;