Вызов обработчика события.

@afal · Регистрация: 13.02.2010

Author24 — интернет-сервис помощи студентам

Можно ли из одного обработчика события, например:

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Код обработчика Button1;
//Вызов: void __fastcall TForm1::cbGndClick(TObject *Sender)?;
}

вызвать другой, например:

C++

void __fastcall TForm1::cbGndClick(TObject *Sender)
{
//Код обработчика  cbGnd 
}

и как это сделать? Какое значение должен принимать указатель *Sender? Или содержимое обработчика оформить функцией которую вызывать в разных обработчиках?
Заранее благодарен.

@Sasha · 02.03.2010, 08:56

Если правильно я тебя понял

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Код обработчика Button1;
 cbGndClick(Sender);
}
 
вызвать другой, например:
 
void __fastcall TForm1::cbGndClick(TObject *Sender)
{
Код обработчика cbGnd 
}

@Lord_Voodoo · 02.03.2010, 09:01

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
 {
 //Код обработчика Button1;
 cbGndClick(Sender); // можно так вызвать
 }

@afal · 02.03.2010, 21:06 **[ТС]**

ОГРОМНОЕ Спасибо!

24.03.2010, 04:30

Сообщение от Lord_Voodoo

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
 {
 //Код обработчика Button1;
 cbGndClick(Sender); // можно так вызвать
 }

Усложняем задачу:
Есть кнопка - Caption к примеру "А".
Есть RichEdit1 - с обработчиком события Edit1KeyPress(TObject *Sender, wchar_t &Key)
Как при нажатии кнопки "А" генерировать ПОЛНОЦЕННОЕ СОБЫТИЕ с передачей значения
*((ButtonA->Caption).w_str()) в параметр &Key.
Т.е. в RichEdit1 должен добавиться символ 'A' словно так, как это было бы при нажатии клавиши "А" на клавиатуре, с фокусом в RichEdit1.

@Lord_Voodoo · 24.03.2010, 09:31

берем 3 кнопки с Caption A, B, C... назначаем им событие OnClick, а в нем:

C++

void __fastcall TMainForm::Button1Click(TObject *Sender)
{
   RichEdit1->Lines->Add(((TButton*)Sender)->Caption);
 
}

после нажатия будет появляться новая строка с буквой из Caption...

AntonChik · 24.03.2010, 09:55

Сообщение от Lord_Voodoo

после нажатия будет появляться новая строка с буквой из Caption...

что совершенно не требуется.
fmm спрашивает как послать рич-едиту сообщение о якобы нажатии клавиши и передать в качестве кода клавиши символ из кэпшна баттона.

LRESULT SendMessage( HWNO hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);

@Lord_Voodoo · 24.03.2010, 10:06

AntonChik, а мой код не Caption добавляет в RichEdit? пусть обозначит задание полностью, тогда будет видно, как это лучше реализовать, а сидеть и спорить с Вами, кто из нас лучше угадает его пожелания - мне лень, если честно...

Сообщение от AntonChik

что совершенно не требуется. fmm спрашивает как послать рич-едиту сообщение о якобы нажатии клавиши и передать в качестве кода клавиши символ из кэпшна баттона.

вам не кажется, что вы сами себе противоречите?

тем более ваше сообщение все равно надо вешать на какое-нить событие... покажите вашу реализацию...

AntonChik · 24.03.2010, 10:20

Т.е. в RichEdit1 должен добавиться символ 'A' словно так, как это было бы при нажатии клавиши "А" на клавиатуре, с фокусом в RichEdit1.

по-моему всё весьма прозрачно.
так что если уж на то пошло, то корректней было бы написать:

Код

RichEdit1->Text=RichEdit1->Text+(((TButton*)Sender)->Caption);

а вообще это должно выглядеть примерно так

Код

SendMessage( RichEdit1->Handle, WM_PRESSKEY, ((TButton*)Sender)->Caption[1], 0);

в общем что то в этом духе, я не знаток WinAPI...

@Lord_Voodoo · 24.03.2010, 10:26

AntonChik, ну вообще решения готового я и не собирался выдавать, а разве что направить человека, пусть сам думает...

24.03.2010, 18:42

Сообщение от AntonChik

RichEdit1->Text=RichEdit1->Text+(((TButton*)Sender)->Caption);

Всем спасибо за внимание. Суть дела в том, что решение "РичЕдит1-Текст += Батон->Капшион" не решает проблемы а создает еще больше проблем: к примеру, что будет, если курсор находится где-нибудь в середине текста? Результат такого решения - громоздкий код в стиле "изобрели а - ля вилосипед". За наводку на метод СендМесседж() - огромное спасибо.

@afal 3 / 3 / 0 Регистрация: 13.02.2010 Сообщений: 33
	02.03.2010, 21:06 [ТС]	4
	ОГРОМНОЕ Спасибо! 0

AntonChik 1090 / 588 / 121 Регистрация: 11.11.2008 Сообщений: 1,544
	24.03.2010, 09:55	7
	Сообщение от Lord_Voodoo после нажатия будет появляться новая строка с буквой из Caption... что совершенно не требуется. fmm спрашивает как послать рич-едиту сообщение о якобы нажатии клавиши и передать в качестве кода клавиши символ из кэпшна баттона. LRESULT SendMessage( HWNO hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam); 0

@Lord_Voodoo Почетный модератор 8784 / 2537 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.03.2010, 10:06	8
	AntonChik, а мой код не Caption добавляет в RichEdit? пусть обозначит задание полностью, тогда будет видно, как это лучше реализовать, а сидеть и спорить с Вами, кто из нас лучше угадает его пожелания - мне лень, если честно... Сообщение от AntonChik что совершенно не требуется. fmm спрашивает как послать рич-едиту сообщение о якобы нажатии клавиши и передать в качестве кода клавиши символ из кэпшна баттона. вам не кажется, что вы сами себе противоречите? тем более ваше сообщение все равно надо вешать на какое-нить событие... покажите вашу реализацию... 0

AntonChik 1090 / 588 / 121 Регистрация: 11.11.2008 Сообщений: 1,544
	24.03.2010, 10:20	9
	Т.е. в RichEdit1 должен добавиться символ 'A' словно так, как это было бы при нажатии клавиши "А" на клавиатуре, с фокусом в RichEdit1. по-моему всё весьма прозрачно. так что если уж на то пошло, то корректней было бы написать: Код RichEdit1->Text=RichEdit1->Text+(((TButton)Sender)->Caption); а вообще это должно выглядеть примерно так Код SendMessage( RichEdit1->Handle, WM_PRESSKEY, ((TButton)Sender)->Caption[1], 0); в общем что то в этом духе, я не знаток WinAPI... 0

@Lord_Voodoo Почетный модератор 8784 / 2537 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.03.2010, 10:26	10
	AntonChik, ну вообще решения готового я и не собирался выдавать, а разве что направить человека, пусть сам думает... 1

fmm
	24.03.2010, 18:42	11
	Сообщение от AntonChik RichEdit1->Text=RichEdit1->Text+(((TButton*)Sender)->Caption); Всем спасибо за внимание. Суть дела в том, что решение "РичЕдит1-Текст += Батон->Капшион" не решает проблемы а создает еще больше проблем: к примеру, что будет, если курсор находится где-нибудь в середине текста? Результат такого решения - громоздкий код в стиле "изобрели а - ля вилосипед". За наводку на метод СендМесседж() - огромное спасибо.