Formname ohnr Tform.Create

[Bummi]

@himitsu

solange man nur auf die Definitionen und nicht auf die Werte zugreift gibt es keine Probleme

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
var
  C: TRttiContext;
  T: TRttiType;
  F: TRttiField;
  S: string;
begin
  T:= C.GetType(TForm7);       //  function GetType(AClass: TClass): TRttiType; overload;
  Memo1.Lines.Clear;
  for F in T.GetFields do
  begin
    S:= F.ToString ;
    if (Pos(': TButton',S)>0)  // wir wollen nur Labels,Edits und Buttons
       or (Pos(': TEdit',S)>0)
       or (Pos(': TLabel',S)>0)
       then
    begin
        Memo1.Lines.Add(S);
    end;
  end;
end;