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

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

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

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

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

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

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

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

@Sasha · 02.03.2010, 08:56

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Код обработчика Button1;
 cbGndClick(Sender);
}
 
вызвать другой, например:
 
void __fastcall TForm1::cbGndClick(TObject *Sender)
{
Код обработчика cbGnd 
}

@Lord_Voodoo · 02.03.2010, 09:01

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

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

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

24.03.2010, 04:30

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

C++
1
2
3
4
5
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++
1
2
3
4
5
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.

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

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

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