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
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