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



Автор: HTH, Dean (Classic Software)

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


Далее: Создание свойства-массива компонентов »»