Подскажите, пожалуйста, в Builder'e создаю потомок от TImage и хочу переопределить событие OnClick, чтобы по нему вызывался не просто щелчок, но и дополнительные действия. Как это реализовать правильнее?
Спасибо.

Я бы ввел член (поручик, молчать!) для хранения "пользовательского" OnClick, и задал бы "внутренний" обработчик для TContol::OnClick:

Код

class TCapImage : public TImage {                              typedef TImage inherit; protected:  TNotifyEvent FUserOnClick;  //обработчик для "внутреннего" использования  void __fastcall InternalOnClick(System::TObject* Sender)  {    ShowMessage(__FUNC__);//что-то вытворяем    if(FUserOnClick)      FUserOnClick(Sender);//дергаем "пользовательский", последовательность можно поменять :)  } public:  __fastcall TCapImage(TComponent* AOwner) : TImage(AOwner)  {    inherit::OnClick=InternalOnClick;//задаем  свой обработчик    FUserOnClick=NULL;  } __published:  __property TNotifyEvent OnClick = {read = FUserOnClick, write = FUserOnClick};//объявляем пользовательский OnClick };

В об'жект инспекторе не проверял, какой из OnClick там виден (в дизайн тайме), но в ран-тайме
присвоение
TCapImage *ci=new TCapImage...
ci->OnClick=...; работает правильно, значит и в дизайн-тайме тоже должно, проверь.

Это сообщение отредактировал(а) Adil' - 27.1.2005, 12:23

Цитата

но и дополнительные действия.

Для этого достаточно просто описать обработчик события.

Цитата(NiJazz @ 27.1.2005, 13:30)

Для этого достаточно просто описать обработчик события.

А потом пользователь компонента вставит свой обработчик - и что тогда?

Если я правильно понял вопрос, то требуется, что бы до или после выполнения OnClick обязательно выполнялся какой либо дополнительный код? Если так, то надо переопределить соответсвующую виртуальную функцию, как и положено в С++. Для данного случай это Click(void) и является стандартным способом для VCL. Правда из-за дельфийных корней, она не virtual, DYNAMIC

Код

class TMyImage :: TImage { //... private  DYNAMIC void __fastcall Click(void); //... }; void __fastcall TMyImage ::Click(void) {    //здесь что то делаем до срабатывания OnClick     TImage::Click();   //здесь что то делаем после OnClick }

На будущее. Если хотите изменить поведение событий в производных классах, ищите virtual или DYNAMIC функции, которые носят имена события без префикса On (OnClick <-> Click) либо с добавлением префикса Do (OnDock <-> DoDock)


Добавлено @ 15:47
Adil
Твой способ тоже будет работать и в инспекторе все будет в порядке, но он, скажем так, "идеологически" не выдержанный

Vyacheslav, да, про TControl::Click я и забыл ...