Delphi dbgrid desplazamiento continuo

Question

Estoy haciendo una aplicación que contiene pedidos e imprime facturas. Tengo algunas etiquetas, tedits, tmemos, botones, un origen de datos, un adotable, un popupmenu y un dbgrid en mi formulario.

Cuando construyo el programa y me desplazo hacia abajo en la barra de desplazamiento dbgrid, se desplaza después de soltar el botón del mouse. Pero quiero un desplazamiento continuo.

Saludos

Answer 1

Se llama thumb tracking. Derive una nueva clase para anular el comportamiento de desplazamiento. Ejemplo de uso de una clase de interposición:

type 
    TDBGrid = class(DBGrids.TDBGrid) 
    private 
    procedure WmVScroll(var Message: TWMVScroll); message WM_VSCROLL; 
    end; 

    TForm1 = class(TForm) 
    DBGrid1: TDBGrid; 
    .. 

implementation 

procedure TDBGrid.WmVScroll(var Message: TWMVScroll); 
begin 
    if Message.ScrollCode = SB_THUMBTRACK then 
    Message.ScrollCode := SB_THUMBPOSITION; 
    inherited; 
end; 

También puede reemplazar el WindowProc del control si no desea derivar una nueva clase. Todo lo que necesita hacer es manejar el mensaje WM_VSCROLL. Here es un ejemplo de cómo hacerlo.

Answer 2

Aquí está la otra solución Sertac Akyuz mencionó sin tener que derivar una nueva clase de TDBGrid:

private 
    FOrgDBGridWndProc: TWndMethod; 
    procedure DBGridWndProc(var Msg: TMessage); 
    // ... 
    end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FOrgDBGridWndProc:= DBGrid1.WindowProc; 
    DBGrid1.WindowProc := DBGridWndProc; 
end; 

procedure TForm1.DBGridWndProc(var Msg: TMessage); 
begin 
    if (Msg.Msg = WM_VSCROLL) and 
    (LongRec(Msg.wParam).Lo = SB_THUMBTRACK) then 
    begin 
     LongRec(Msg.wParam).Lo := SB_THUMBPOSITION; 
    end; 
    if Assigned(FOrgDBGridWndProc) then 
    FOrgDBGridWndProc(Msg); 
end;