Ver Mensaje Individual
  #1  
Antiguo 17-04-2007
pelaorb68 pelaorb68 is offline
Miembro
 
Registrado: oct 2005
Posts: 32
Reputación: 0
pelaorb68 Va por buen camino
Ayuda con TColumn

Hola a todos, necesito de vuestras ayudas nuevamente.
Quiero agregar un par de propiedades a un TColumn. Hice lo siguiente pero me da error en RunTime:

Código Delphi [-]
type
  TRBColumn = class(TColumn)
  private
     FField1 : string;
     FField2 : string;
  public
    property Field1: string read FField1 write FField1;
    property Field2: string read FField2 write FField2;
  end;
 
  TfrmMB = class(TForm)
    DBGrilla: TDBGrid;
    .
    .
    .

procedure TfrmMB.CrearColumnas;
var
  Columna : TColumn;
begin
  Columna := DBGrilla.Columns.Add;
  Columna.Title.Caption   := 'xxxx';
  Columna.Alignment := taCenter;
 
  TRBColumn(Columna).Field1 := 'yy'; <--- Error: EAccessViolation
  TRBColumn(Columna).Field2 := 'zz';
end;

Me pueden ayudar please........qué estoy haciendo mal?

Saludos y desde ya muchas gracias
Responder Con Cita