Suche Basisklasse, um Quellcode zu sparen

[Christian18]

Hallo,

gibt es eine Art Basisklasse, damit ich nicht jedes Element extra ansprechen muss?

Delphi-Quellcode:

      // TGroupBox
      if Form.FindComponent(Node.Attributes['Name']) is TGroupBox then
        begin
          (Form.FindComponent(Node.Attributes['Name']) as TGroupBox).Caption:=Node.Attributes['Caption'];
        end;
      // TLabel
      if Form.FindComponent(Node.Attributes['Name']) is TLabel then
        begin
          (Form.FindComponent(Node.Attributes['Name']) as TLabel).Caption:=Node.Attributes['Caption'];
        end;
      // TBitBtn
      if Form.FindComponent(Node.Attributes['Name']) is TBitBtn then
        begin
          (Form.FindComponent(Node.Attributes['Name']) as TBitBtn).Caption:=Node.Attributes['Caption'];
        end;

[DeddyH]

Versuch es mal mit TControl.

[Progman]

Hinweis: Das Array Components enthält alle Komponenten, die sich auf einem Form befinden.

Delphi-Quellcode:

for i := 0 to Self.ComponentCount-1 do begin
  if (Components[i] is TLabel) then //machwas für Label
  if (Components[i] is TButton) then //machwas für Button
//  usw:
end;

[dataspider]

Zitat:

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