Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Одна функция для нескольких компонентов, Как это сделать? 
:(
    Опции темы
Superklug
Дата 28.7.2007, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет
Необходимо написать функцию, которая бы реагировала на события от нескольких компонентов. Например есть 20 одинаковых кнопок. Необходимо, чтобы при нажатии на любую из них появилось сообщение с заголовком кнопки. Не писать же для этого 20 функций...

Помогите пожалуйста начинающему программисту. smile Заранее очень благодарен.
PM MAIL   Вверх
Lazin
Дата 28.7.2007, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3820
Регистрация: 11.12.2006
Где: paranoid oil empi re

Репутация: 18
Всего: 154
Можно написать один обработчик для всех кнопок TNotifyEvent
void __fastcall TMainForm :: AnyClick (TObject* Sender)
{
    TButton* btn = dynamic_cast<TButton*>( Sender );
    if (btn)
    {ShowMessage(btn->Caption);}
}
Этособытие нужно установить для каждой кнопки. Оператор dynamic_cast пытается привести переменную Sender к типу TButton, если не получается он возвращает 0. Параметр Sender - это указатель на компонент вызвавший событие.


--------------------
C++ is the steampunk of programming languages: modern ideas realized with victorian technology.
PM MAIL Skype GTalk   Вверх
Superklug
Дата 28.7.2007, 14:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет
Цитата(Lazin @ 28.7.2007,  12:42)
Можно написать один обработчик для всех кнопок TNotifyEvent
void __fastcall TMainForm :: AnyClick (TObject* Sender)
{
    TButton* btn = dynamic_cast<TButton*>( Sender );
    if (btn)
    {ShowMessage(btn->Caption);}
}
Этособытие нужно установить для каждой кнопки. Оператор dynamic_cast пытается привести переменную Sender к типу TButton, если не получается он возвращает 0. Параметр Sender - это указатель на компонент вызвавший событие.

Огромное спасибо smile

Вопрос решен.
PM MAIL   Вверх
ksili
Дата 30.7.2007, 09:36 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: 1
Всего: 17
Цитата(Lazin @  28.7.2007,  17:42 Найти цитируемый пост)
Можно написать один обработчик для всех кнопок TNotifyEvent
void __fastcall TMainForm :: AnyClick (TObject* Sender)
{
    TButton* btn = dynamic_cast<TButton*>( Sender );
    if (btn)
    {ShowMessage(btn->Caption);}
}

Как-то наворочено. По-моему можно проще.
У одной из кнопок определяем обработчик:
Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ShowMessage(this->Caption);
}

А потом выделяем все остальные кнопки, в Object Inspector'е выбираем вкладку Events и в событии OnClick выбираем из выпадающего списка Button1Click


--------------------
Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)
PM MAIL   Вверх
dumb
Дата 30.7.2007, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 32
Всего: 158
Цитата(ksili @  30.7.2007,  09:36 Найти цитируемый пост)
ShowMessage(this->Caption);

ага. и все они тебе будут показывать Caption формы Form1.
PM MAIL   Вверх
ksili
Дата 30.7.2007, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: 1
Всего: 17
Блин, и правда


--------------------
Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)
PM MAIL   Вверх
Klin
Дата 1.8.2007, 18:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1938
Регистрация: 7.10.2002
Где: Краснодар

Репутация: 20
Всего: 25
Цитата(ksili @  30.7.2007,  10:36 Найти цитируемый пост)
Как-то наворочено. По-моему можно проще.



Код

 void __fastcall TMyForm ::MyClick (TObject* Sender)
{
 ShowMessage (((TButton*) Sender)->Caption);
}
//--------------------------------------------------------------
void __fastcall TMyForm::FormCreate(TObject *Sender)
{
 for (int n = 0; n<=ComponentCount; n++) 
  if (Components[n]->ClassNameIs("TButton")) ((TButton*) Components[n])->OnClick = MyClick;
}



--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0450 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.