VPF::Создание редактора свойства - Форум программистов

Vit

Дата 14.6.2002, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Взято из FAQ: http://blackman.km.ru/myfaq/cont4.phtml

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

Код


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;
  I: Integer;
begin
{ здесь вы должны добавить свой код, чтобы с помощью цикла обойти имена всех
  таблиц, включенных в список }
  for I := 0 to ? do begin
    TableName := ?[I];
    Proc(TableName);
  end;
end;

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

Код


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

[News Group]

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »