Suche Basisklasse, um Quellcode zu sparen

[dataspider]

Zitat von DeddyH:

Versuch es mal mit TControl.

Bei TControl ist Caption noch Protected.
Aber man kann ja eine Hilfsklasse erstellen:

Delphi-Quellcode:

THackControl = class(TControl)
published
  property Caption;
end;

Dann könnte man es so lösen:

Delphi-Quellcode:

Var
  AComponent: TComponent;
begin
  AComponent := Form.FindComponent(Node.Attributes['Name']);
  if Assigned(AComponent) then
    THackControl(AComponent).Caption := Node.Attributes['Caption'];
  ...

Frank