Foros Club Delphi

Hola:

La clase base TCustomGrid tiene dos propiedades, FixedCols y FixedRows que permiten ampliar el número de columnas / filas fijas. Lo que hace el siguiente ejemplo es derivar una clase de TCustomGrid para hacer accesible (public) la propiedad que necesitas para luego castear el DBGrid a esta clase nueva. Prueba con esto:

Código:

  TMyGrid = class(TCustomGrid)

  public

    property FixedCols;

  end;



implementation



{$R *.DFM}



...



procedure TForm1.Button1Click(Sender: TObject);

begin

  TMyGrid(DBGrid1).FixedCols := 2;

end;

Ésto es sólo una idea para que sepas por dónde va el asunto, si lo pruebas verás que el DBGrid provoca una serie de efectos raros como no mostrar bien el Caption de la primera columna no fija, y algo más; quizás te sirva pero habría que crear un DBGrid descendiente y retocar más código.

No manejo los componentes Rx pero estoy casi seguro que el RxDBGrid debe llevar esa opción, seguro que alguien en estos foros te informa de ello. (Las Rx las puedes bajar de la pestaña de componentes de esta web).