class MyButton :public TButton
{
public:
ret_val MyButton::Click() {
.........
return TButton::Click();
}
};
Как перехватить сообщение, но после продолжить его
Короче, я создаю компонент на основе базового стандартного (например кнопка TButton). Мне нужно вставить несколько строчек кода в событие OnClick(), но в тоже время мне нужно оставить для использования событие OnClick() программисту-пользователю, чтобы он смог воспользоваться событием Onclick() компонента.
Передо мной возникла задача как это реализовать. Едиственная идея, которая у меня возникла, это перехватить сообщение до OnClick() и создать своё событие, но чтобы сообщение потом не остановилось, а продолжило свой путь дальше. Но как это сделать?
Или кто-то знает как по другому решить эту проблему?
Передо мной возникла задача как это реализовать. Едиственная идея, которая у меня возникла, это перехватить сообщение до OnClick() и создать своё событие, но чтобы сообщение потом не остановилось, а продолжило свой путь дальше. Но как это сделать?
Или кто-то знает как по другому решить эту проблему?
Green
Не совсем верно - метод Click просто позволяет "нажать" кнопку программно. Посему действия пользователя будут проигнорированы
А для обратотки нажатия используется "событие". Соответственно его надо переопределить событие OnClick
Нажатие кнопки ЛЮБЫМ способом вызовет событие OnClick базового класса. Это событие вызовет метод Parent_Click, который является его "обработчиком". Данный метод выполняет требуемые действия и вызывает событие OnClick ЭТОГО класса.
Единственный (и очень важный) недостаток метода - это возможность изменить OnClick базового класса, обратившись к нему, как к объекту базового класса
В этом случае MyButton::Parent_Click НИКОГДА вызывано не будет :(
Не совсем верно - метод Click просто позволяет "нажать" кнопку программно. Посему действия пользователя будут проигнорированы
А для обратотки нажатия используется "событие". Соответственно его надо переопределить событие OnClick
Код:
class MyButton :public TButton
{
private:
TNotifyEvent fOnClick; // Собственный обработчик события
protected:
void __fastcall Parent_Click (TObject *Sender);
inline void __fastcall DoClick (void)
{if (fOnClick) fOnClick (this);}
public:
__fastcall MyButton (TComponent* Owner): TButton (Owner)
{TButton::OnClick = this->Parent_Click;} // Назначаем обработчик
// события базового класса
__published: // чтобы свойство отобразилось в Object Inspector
__property TNotifyEvent OnClick = {read=FOnClick, write=FOnClick, stored=IsOnClickStored};
};
void __fastcall MyButton::Parent_Click (TObject *Sender)
{
// Обработчик события базового класса
if (Sender == this)
{
ЧТО-ТО_ДЕЛАЕМ
this->DoClick(); // Генерируем событие "нажатие"
}
}
{
private:
TNotifyEvent fOnClick; // Собственный обработчик события
protected:
void __fastcall Parent_Click (TObject *Sender);
inline void __fastcall DoClick (void)
{if (fOnClick) fOnClick (this);}
public:
__fastcall MyButton (TComponent* Owner): TButton (Owner)
{TButton::OnClick = this->Parent_Click;} // Назначаем обработчик
// события базового класса
__published: // чтобы свойство отобразилось в Object Inspector
__property TNotifyEvent OnClick = {read=FOnClick, write=FOnClick, stored=IsOnClickStored};
};
void __fastcall MyButton::Parent_Click (TObject *Sender)
{
// Обработчик события базового класса
if (Sender == this)
{
ЧТО-ТО_ДЕЛАЕМ
this->DoClick(); // Генерируем событие "нажатие"
}
}
Нажатие кнопки ЛЮБЫМ способом вызовет событие OnClick базового класса. Это событие вызовет метод Parent_Click, который является его "обработчиком". Данный метод выполняет требуемые действия и вызывает событие OnClick ЭТОГО класса.
Единственный (и очень важный) недостаток метода - это возможность изменить OnClick базового класса, обратившись к нему, как к объекту базового класса
Код:
TForm1::TForm1 () // конструктор формы, лень полностью писать
{
TButton *btn = new MyButton (this);
btn->OnClick = this->btnClk;
}
{
TButton *btn = new MyButton (this);
btn->OnClick = this->btnClk;
}
В этом случае MyButton::Parent_Click НИКОГДА вызывано не будет :(
Ну неправильно назвал метод, суть то не в названии.
Думаю, человеку с головой понятно, что я предлагал своим кодом:
Думаю, человеку с головой понятно, что я предлагал своим кодом:
Код:
class MyButton :public TButton
{
public:
ret_val OnClick() {
.........
return TButton::OnClick();
}
};
{
public:
ret_val OnClick() {
.........
return TButton::OnClick();
}
};
Цитата: Green
Ну неправильно назвал метод, суть то не в названии.
Думаю, человеку с головой понятно, что я предлагал своим кодом:
Думаю, человеку с головой понятно, что я предлагал своим кодом:
Код:
class MyButton :public TButton
{
public:
ret_val OnClick() {
.........
return TButton::OnClick();
}
};
{
public:
ret_val OnClick() {
.........
return TButton::OnClick();
}
};
мля щас сниму назад оценку:) Первый ответ был верный!
Да и второй тоже верный...
Если нет, обоснуй, плз.
Если нет, обоснуй, плз.
Цитата: Green
Да и второй тоже верный...
Если нет, обоснуй, плз.
Если нет, обоснуй, плз.
1. ВСВ - это тоже С++ (между прочим...)
2. Специально в классе определен метод:
protected:
... virtual Click();
который инициирует событие.
3. Никаких махинаций с OnClick не нужно(это просто адрес обработчика если он есть, то он вызывается
TControl::Click()
{
...
if(FOnClick)
FOnClick(this) //
)
все по "русски" делать надо как это принято в С++.
Цитата: GIZMO
1. ВСВ - это тоже С++ (между прочим...)
Интересный аргумент... к чему он?
Цитата: GIZMO
2. Специально в классе определен метод:
protected:
... virtual Click();
который инициирует событие.
3. Никаких махинаций с OnClick не нужно(это просто адрес обработчика если он есть, то он вызывается
TControl::Click()
{
...
if(FOnClick)
FOnClick(this) //
)
все по "русски" делать надо как это принято в С++.
Я билдер последний раз видел лет пять-шесть назад и уже не помню (да особо и не запоминал) какие специальные методы, в каком специальном классе определены.
Поэтому к подобным вопросам подхожу "как это принято в С++".
Если мне нужно изменить реакцию класса на некоторое событие, я переопределяю обработчик этого события. Если после новой обработки должна вызываться обработка базового класса, я вызываю её явно из своего обработчика.
Другими словами: то что пытается сделать автор топика - это медвежья услуга пользователю его класса. Пользователь должен сам вызвать (или не вызвать) метод базового класса.
Представьте, а если пользователь не захочет, чтоб метод базового класса вызывался, а если захочет, чтоб вызывалось несколько в ином порядке?
Вместо того, чтобы наворачивать сложные механизмы вокруг элементарного действия, предоставьте пользователю возможность самому решить, как ему быть, и вписать ОДНУ строчку TButton::OnClick().