Отправляет email-рассылки с помощью сервиса Sendsay

Delphi для профессионалов

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Ноябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
13.11.2002
04:48:29
05:05:04
14
14.11.2002
01:29:03
16:05:03
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Ведущий

Статистика

8.943 подписчиков
-22 за неделю
←   Все выпуски   →

Delphi для профессионалов - Создание редактора свойства


Информационный Канал Subscribe.Ru
eServer.ru :: Хостинг без ограничений!
Рассылка: Delphi для профессионалов

Количество подписчиков: 2822
Рассылка 'Delphi для профессионалов'

Выберите действие:
Заглавие (одной строкой) :
Содержание :

От кого :
Не показывать мой e-mail другим пользователям

Здравствуйте!

В предидущей рассылке я допустил ошибку выслав Вам не тот совет.
Я прошу прощения за доставленное неудобство и исправляю свою ошибку.
Спасибо Инне Сивковой за бдительность.




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

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

Все вопросы присылайте по адресу: delphi-ask@igp.org.ua
Все ответы присылайте по адресу: delphi-reply@igp.org.ua
Все подсказки присылайте по адресу: delphi-hint@igp.org.ua
Со всем списком советов можно познакомиться по адресу: http://igp.org.ua/delphine/.
Наш проект Delphine можно найти по следующей ссылке: http://igp.org.ua/products/delphine/.

Заходите в наш форум: Форум Delphi-профессионалов. Адрес: http://igp.org.ua/cgi-bin/yabb/yabb.pl.
Здесь Вы найдете ответы на все Ваши вопросы!

Выберите действие:
Заглавие (одной строкой) :
Содержание :

От кого :
Не показывать мой e-mail другим пользователям

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное