Attribute überschreiben

[Rainer Wolff]

Ausprobiert hab ich das anhand meiner Klassen schon, da kam aber was anderes bei raus, weil die Attribute auch etwas anders sitzen:

Code:

TBaseClass = class(TControl)
published
  [Checkbox('Ich bin die Beschriftung',10,10)]
  property Eigenschaft1: Boolean read ... write...;
end

TChildclass = class(TBaseClass)
published
  [Checkbox('Now i am an english caption at different position',20,20)]
  property Eigenschaft1: Boolean;
  [Checkbox('I have a second property',30,30]
  property Eigenschaft2: Boolean read... write...;
end;

procedure ErstelleTForm();
var
  Liste: TList<TControl>;
  element: TControl;
begin
  // so in etwa
  Liste.Add(TBaseClass.Create);
  Liste.Add(TChildclass.Create);
  for element in liste do 
  begin
    für alle Propertys in Klasse // mit RTTI 
    wenn Attribut(Checkbox)
      Erstelle TCheckbox in Formular an PosX, PosY mit Caption (und mach gleich ein Databinding zwischen Checkbox und property)
  end;
end

und da taucht halt dann bei Eigenschaft1 das Attribut aus der Basisklasse auf, das ich gerne ersetzt hätte.