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