Ayuda con TColumn

[camgom]

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.