Delphi DbGrid 마우스 스크롤

798 단어 Delphi
Delphi의 DbGrid는 기본적으로 스크롤을 지원하지 않습니다.코드를 통해 DbGrid에서 마우스 스크롤을 지원할 수 있습니다.
 
procedure NewGridWnd(var message:TMessage); 
 
OldGridWnd: TWndMethod;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  
  //      
  OldGridWnd :=dbgrd.WindowProc;
  dbgrd.WindowProc :=NewGridWnd;
end;
//      
procedure TForm1.NewGridWnd(var message:TMessage);
var
  IsNeg: Boolean;
begin
  if message.Msg = WM_MOUSEWHEEL then
    begin
      IsNeg :=Short(message.WParamHi)<0;
      if IsNeg then
        dbgrd.DataSource.DataSet.MoveBy(1)
      else
        dbgrd.DataSource.DataSet.MoveBy(-1)
    end
  else
    OldGridWnd(message);
end;

좋은 웹페이지 즐겨찾기