Mover el contenido de dos stringgrid al mismo tiempoal hacer scroll vertical ?
 

Hola a todos antes que nada agradecer todo el trabajo que se hace en este foro, no soy muy avanzado todavía programando y resuelvo muchisimas de mis dudas gracias a preguntas que otros hicieron y fueron respondidas aquí.
Ahora si al grano, tengo dos stringgrid que siempre tendran la misma cantidad de filas necesito hacer que al hacer scroll vertical en una se mueva de igual forma la otra, puediera servirme tambien algo que me permita ocultar la scrollbar vertical de ambos stringgrid y manejaro a travez de una scrollbar que cree aparte, lo que sucede es que una está a un lado de la otra y muestra información de datos que estan organizados por filas en la primera, espero haberme explicado correctamente.

Hola.

Fijate si este ejemplo con tres TStringGrid te resulta útil:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure sgTopLeftChanged(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  StringGrid1.ColCount := 3;
  StringGrid1.RowCount := 10;
  StringGrid2.ColCount := 3;
  StringGrid2.RowCount := 10;
  StringGrid3.ColCount := 3;
  StringGrid3.RowCount := 10;

  for i := 0 to StringGrid1.RowCount-1 do
  begin
    StringGrid1.Rows[i].CommaText := IntToStr(i)+','+IntToStr(i+1)+','+IntToStr(i+2);
    StringGrid2.Rows[i].CommaText := StringGrid1.Rows[i].CommaText;
    StringGrid3.Rows[i].CommaText := StringGrid1.Rows[i].CommaText;
  end;

  StringGrid1.OnTopLeftChanged := sgTopLeftChanged;
  StringGrid2.OnTopLeftChanged := sgTopLeftChanged;
  StringGrid3.OnTopLeftChanged := sgTopLeftChanged;
end;

procedure TForm1.sgTopLeftChanged(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to ControlCount-1 do
    if (Controls[i] is TStringGrid)and(Controls[i] <> Sender) then
      TStringGrid(Controls[i]).TopRow := TStringGrid(Sender).TopRow
end;

Funciona con mouse sobre el ScrollBar tanto como con las teclas down/up.

Salida:


Saludos :)

Eso es justo lo que busco.Muchas Gracias

Ya lo probé y me funcionó ok gracias