Delphi 1

Поиск свойств

Я хотел бы во время выполнения приложения получить, если возможно, список всех свойств компонента. (Список и тип каждого свойства)

Хороший материал по этому вопросу вы найдете в 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 do

Memo1.Lines.Add(PropList^[I]^.Name);

FreeMem(PropList, sizeof(tPropList));

end;

[000658]