Ayuda TopRow Dbgrid

[peripla]

Hola a todos, tengo el problema de que cuando hago un top row en un dbgrid, lo hace bien, pero cuando quiero volver a mostrar la primera fila moviendo con los cursores o con el scroll no puedo ver las filas anteriores al top row.
Gracias

[amadis]

¿como estas implementando el top row?

¿estas tomando un Dbgrid como Stringgrid?. porque Toprow es un propiedad de los CustomGrid (StringGrid y DrawGrid). Dbgrid es una grilla virtual que muestra el contenido de un DataSet.

¿es sobre una tabla filtrada?

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
  Var
     R : Integer;
 
  begin
     R :=TStringGrid(DbGrid1).Row;
     TStringGrid(DbGrid1).TopRow := R;
   end;

De esa forma guardas y re-estableces toprow.


Por otro lado. Prueba también agregar al formulario principal de tu proyecto (si es MDI) o bien al form donde tienes la grilla un TApplicationEvens con este código.

Código Delphi [-]
procedure TFPrincipal.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
   i: SmallInt;
begin
   if Msg.message = WM_MOUSEWHEEL then
   begin
     Msg.message := WM_KEYDOWN;
     Msg.lParam := 0;
     i := HiWord(Msg.wParam) ;
     if i > 0 then
       Msg.wParam := VK_UP
     else
       Msg.wParam := VK_DOWN;

     Handled := False;
   end;
end;

Con lo anterior he solucionado detalles de repintado de grids y sobretodo problemas de repintado de grids cuando se usa el scroll del mouse.