Añadir propiedades a TField
Estoy intentando añadir propiedades a TField pero me da error.
He hecho lo siguiente y me da error:
type
TmyField = class(TField)
private
FGrid: String;
protected
procedure setGrid(const value : string);
public
constructor Create(AOwner: TComponent); override;
published
property Grid: string read FGrid write SetGrid;
end;
implementation
constructor TmyField.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
procedure TmyField.setGrid(const value : string);
begin
FGrid := Value;
end;
Me da error al asignar la variable value a FGrid.
Alguien me puede ayudar? Gracias de antemano
|