Scrolbars

[ecfisa]

Hola cmfab.

Usando la función SetScrollInfo

Código Delphi [-]
...
// Situar posición horizontal 
procedure TForm1.SetScrollBarHrzPos(Hnd: THandle; Pos: Integer);
var
  Info: TScrollInfo;
begin
  Info.cbSize:= SizeOf(TScrollInfo);
  Info.fMask:= SIF_POS;
  Info.nPos:= Pos;
  SetScrollInfo(DBGrid1.Handle,SB_HORZ,Info, True);
end;

// Situar posición vertical
procedure TForm1.SetScrollBarVerPos(Hnd: THandle; Pos: Integer);
var
  Info: TScrollInfo;
begin
  Info.cbSize:= SizeOf(TScrollInfo);
  Info.fMask:= SIF_POS;
  Info.nPos:= Pos;
  SetScrollInfo(DBGrid1.Handle,SB_VERT,Info, True);
end;
...

Un saludo.

[cmfab]

gracias mucha por todo