Советы по Delphi
Создание редактора свойства
Если вы назвали свое свойство TableName, то полный цикл создания редактора свойств включает следующие шаги:
1. Опишите класс редактора свойства:
| type TTableNameProperty = class(TStringProperty)function GetAttributes: TPropertyAttributes; override;procedure GetValues(Proc: TGetStrProc); override;end; implementation { TTableNameProperty } function TTableNameProperty.GetAttributes: TPropertyAttributes; begin Result := [paValueList];end; procedure TTableNameProperty.GetValues(Proc: TGetStrProc); var TableName: String; begin { *********************************здесь вы должны добавить свой код, чтобы с помощьюцикла обойти имена всех таблиц, включенных в список***********************************}for I := 0 to ???? dobeginTableName := ????[I];Proc(TableName);end;end; |
2. Затем вам необходимо зарегистрировать данный редактор свойства следующим образом (в вашей процедуре Register):
| RegisterPropertyEditor(TypeInfo(string), TcsNotebook, 'TableName', TTableNameProperty); |
HTH, Dean [Classic Software] [000662]
