Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Suche Basisklasse, um Quellcode zu sparen

  Alt 16. Okt 2007, 14:36
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
Frank Reim
  Mit Zitat antworten Zitat