Поиск свойств
Я хотел бы во время выполнения приложения получить, если возможно, список всех свойств компонента. (Список и тип каждого свойства)
Хороший материал по этому вопросу вы найдете в typinfo.pas (каталог Docs); нижеследующий код заполнит компонент Memo именами свойств:
Uses TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
var
PropList: pPropList;
J, I: Integer;
begin
Memo1.Lines.Clear;
getMem(PropList, sizeof(tPropList));
J := GetPropList(TypeInfo(tButton), tkProperties, PropList);
for I := 0 to J - 1 do
Memo1.Lines.Add(PropList^[I]^.Name);
FreeMem(PropList, sizeof(tPropList));
end;
|
|