Hallo liebe Community,
kann man eine Property eines TObjects setzen ohne das die methode das TObject kennt?
Was ich vorhabe ist hoffentlich Verständlich und kurz genug erklärt, ohne das Ihr einschlaft beim Lesen
Ich würde mir gerne eine Methode schreiben die eine TForm entgegen nimmt.
procedure SetProperties(const AForm: TForm);
Innerhalb der methode möchte ich alle vorhandenen Componenten durchiterieren um dann Properties zu wechseln.
Delphi-Quellcode:
var
i: integer;
begin
for i := 0 to Pred(AForm.ComponentCount) do
if AForm.Components[i] is TPanel then
TPanel(AForm.Components[i]).Caption := 'eine caption';
end;
Mein Problem ist, ich benötige für TPanel eine universelle TObject Lösung die testet ob es "Caption" gibt und sie dann setzt.
Gibt es dafür eine Lösung?