Alle Komponenten einer Application ändern

[marabu]

Guten Morgen.

Zuerst kapselt man die benötigte Funktionalität:

Delphi-Quellcode:

// uses TypInfo;

procedure SetProperty(c: TComponent; cClass, cName: String; cValue: Variant);
var
  i: Integer;
  ppi: PPropInfo;
begin
  if SameText(c.ClassName, cClass) then
  begin
    ppi := GetPropInfo(c, cName);
    if Assigned(ppi) then
      SetPropValue(c, cName, cValue);
  end;
  for i := 0 to Pred(c.ComponentCount) do
    SetProperty(c.Components[i], cClass, cName, cValue);
end;

Dann wählt man einen geeigneten Zeitpunkt um sie abzurufen:

SetProperty(Application, 'TLabel', 'Color', clRed); Grüße vom marabu