|
Автор: 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);
|
|
Создание редактора свойства