Lista właściwości komponentu

0

Jak wylistować właściwości komponentu, tj.: wszystkie właściwości jakie można znaleźć w ObjectInspektorze dla wybranego komponentu wraz z przypisanymi wartościami ?

0

np Memo1. i poczekaj na liste podpowiedzi, jezeli się nie pojawi to to naciśnij ctrl+[spacja] a wartości przypisanych nie w edytorze kodu nie znajdziesz po to właśnie jest object inspector

0

Nie o to chodzi :)

Ale znalazłem bliższe odpowiedzi rozwiązanie

uses 
  TypInfo;


var
  PropList : PPropList;
  i: Integer;
begin
 Memo1.Clear;
 PropList:=AllocMem(SizeOf(PropList^));
 i:=0;
 try
   GetPropList(Form1.ClassInfo,tkProperties+[tkMethod],PropList);
   while (PropList^ [i]<>Nil) and (i<High(PropList^)) do
     begin
      Memo1.Lines.Add('Form1.' + PropList^[i].Name + '=' + PropList^[i].PropType[i].Name);
      Inc(i);
     end;
 finally
   FreeMem(PropList);
 end;
end;

Co prawda pobierane są właściwości komponentu, ale:

  • nie są pobierane podwłaściwości, np.: podwłaściwość TFont komponentu TForm
  • nie są pobierane ustawienia właściwości

1 użytkowników online, w tym zalogowanych: 0, gości: 1