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

Следующая статья: Хранение данных в EXE-файле.

Если вы присвоили свойству имя TableName, то полный цикл создания редактора свойств включает следующие шаги: Опишите класс редактора свойства:

type
TTableNameProperty=class(TStringProperty)
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
end;
implementation

function TTableNameProperty.GetAttributes: TPropertyAttributes;
begin
 Result:=[paValueList];
end;

procedure TTableNameProperty.GetValues(Proc: TGetStrProc);
var
TableName: String;
I: Integer;
begin
// здесь вы должны добавить свой код, чтобы с помощью цикла обойти имена всех таблиц, включенных в список
 for I:=0 to self do
 begin
  TableName:=self[I];
  Proc(TableName);
 end;
end;

Затем зарегистрируйте данный редактор свойства следующим образом:

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