Tema: grid
Ver Mensaje Individual
  #3  
Antiguo 28-07-2003
andres1569 andres1569 is offline
Miembro
 
Registrado: may 2003
Posts: 908
Reputación: 22
andres1569 Va por buen camino
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).
__________________
Guía de Estilo
Responder Con Cita