Ver Mensaje Individual
  #6  
Antiguo 18-04-2007
camgom camgom is offline
Registrado
 
Registrado: abr 2007
Posts: 1
Reputación: 0
camgom Va por buen camino
Ayuda con TColumn

Existe un en delphi wue permite "engañar" al compilador con una superposicion.

Simplemente en types declara tu clase para TColumn y declara que hereda de la clase original TColumn aclarando la unit de donde proviene la original (en este momento no me acuerdo de cual unit se saca la clase TColumn orignal por lo que la voy a nombrar "unitcl")

type

TColumn=class(unitcl.TColumn)
private
FField1:string;
FField2: string;
public
property Field1:string write FField1 read FField1;
property Field2:string write FField2 read FField2;
end;

Declara esta clase antes de la declaración de clase de la ventana donde necesitas o utilizas el control.

Al momento de trabajar con el objeto simplemente utilizala como cualquier otra clase.

...
dbgrid.column[0].field1:='a';
...
Es de aclarar que esta superposición solo funciona para el código, no para el diseño de la ventana y mucho menos para el inspector de objetos.
Responder Con Cita