Property eines TObjects setzen Frage

[DeddyH]

Meinst Du so etwas? https://www.delphipraxis.net/123356-...nsprechen.html

[KodeZwerg]

Danke DeddyH, ich denke das Dein letzter Post genau mein Ding ist um voran zu kommen!

Delphi-Quellcode:

function CompSetCaption(AClass : TObject; const Caption: string): Boolean;
const sProp = 'Caption';
var
  MyPropInfo: PPropInfo;
begin
  MyPropInfo := GetPropInfo(AClass.ClassInfo, sProp);
  Result := Assigned(MyPropInfo);
  if Result then
    SetPropValue(AClass, sProp, Caption);
end;

LG Kode

[stahli]

Generic hat gerade mal eine Anwendung mit den RTTI gezeigt: https://youtu.be/lpyo1TdPQZY

[KodeZwerg]

Zitat von stahli:

Generic hat gerade mal eine Anwendung mit den RTTI gezeigt: https://youtu.be/lpyo1TdPQZY

Hey stahli, vielen Dank für den Link, "coding BOTT" kannte ich noch nicht, wird sich nun ändern, super tutorials, echt empfehlenswert, mehr Werbung machen dafür

[generic]

Danke

Ihr könnt euch auch Themen wünschen. Mir fällt es manchmal schwer neue und interessante Themen zu finden.

[KodeZwerg]

@generic

Delphi-Quellcode:

procedure TfrmMain.SetObjectColors(AObject: TObject);
const
  sPropColor = 'Color';
  sPropFont = 'Font.Color';
var
  Context: TRttiContext;
  RType: TRttiType;
  Prop: TRttiProperty;
begin
  Context := TRttiContext.Create;
  RType := Context.GetType(AObject.ClassType);
  for Prop in RType.GetProperties do
    begin
      if Prop.Name = sPropColor then
          Prop.SetValue(AObject, FBackgroundColor);
      if Prop.Name = sPropFont then
          Prop.SetValue(AObject, FTextColor);
    end;
  Context.Free;
end;

Dank Deines Tutorials und weil es mir Spass macht rumzuprobieren, ist das entstanden, kA ob es Vorteile oder Nachteile gegenüber DeddyH sein code gibt, das war im Tutorial nicht erwähnt.

[Uwe Raabe]

Ich fürchte bei Font.Color wird es nicht funktionieren, denn das Property ist Font und der hat ein Property Color. Also sollte man nach Property Font suchen und sich die Font-Instanz holen, um dessen Color zu setzen.