Советы по Delphi
Поиск свойств
Я хотел бы во время выполнения приложения получить, если возможно, список всех свойств компонента. (Список и тип каждого свойства)
Хороший материал по этому вопросу вы найдете в typinfo.pas (каталог Docs); нижеследующий код заполнит компонент Memo именами свойств:
| Using 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 doMemo1.Lines.Add(PropList^[I]^.Name);FreeMem(PropList, sizeof(tPropList));end; |
[000658]
