Delphi 1

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

Если вы назвали свое свойство 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;

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

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

HTH, Dean [Classic Software] [000662]