Советы по Delphi



         

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


Если вы назвали свое свойство 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 ???? dobeginTableName := ????[I];Proc(TableName);end;end;

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

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

HTH, Dean [Classic Software] [000662]




Содержание  Назад  Вперед