Создание редактора свойства

Если вы назвали свое свойство 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 ???? do begin TableName := ????[I]; Proc(TableName); end; end;

2. Затем вам необходимо зарегистрировать данный редактор свойства следующим образом (в вашей процедуре Register):

RegisterPropertyEditor(TypeInfo(string), TcsNotebook, 'TableName', TTableNameProperty);

HTH, Dean [Classic Software] [000662]

Содержание раздела