Показать сообщение отдельно
  #1  
Старый 22.05.2011, 20:26
Beginner Beginner вне форума
Прохожий
 
Регистрация: 22.05.2011
Сообщения: 2
Репутация: 10
По умолчанию Как назначить объекту своего класса событие

Добрый День!
Возникла проблема с написанием обработчика события.
Код:
Type
  TNotifyEvent=procedure(Sender:TObject) of object;

  CBObj=class
    CB,CB0,CB1: TComboBox;
    relCB0,relCB1: array[1..2] of integer;
    res:integer;
    Constructor Create(j:integer);
   private
      CBClick:  TNotifyEvent;
    Protected
      Procedure DoCBClick(Sender: TObject); dynamic;
    public
      property OnCBClick:  TNotifyEvent read CBClick write CBClick;
      Procedure GenerateCBClick(i,j:integer);
  end;
Админ: Пользуемся тегами для оформления кода!

Можно ли назначить объекту CB класса CBObj стандартное событие OnChange, которое выполняется для объекта TComboBox?
Ответить с цитированием