Передать в обработчик параметр

@ijonhson · Регистрация: 09.03.2011

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

Всем доброй ночи, хочу разгрузить озу юзера и создать все диалоги(а их уже насобиралось около 50, будет больше) динамически. Как в обработчик динамически созданной кнопки на динамически созданной форме передать саму форму например, хотя-бы для close()

@volvo · 11.03.2015, 11:47

Вообще-то у кнопки есть Parent, а сама кнопка передается через Sender.

@ijonhson · 11.03.2015, 15:57 **[ТС]**

хорошо, есть 3 RadioButton на динамической форме, для него кнопка и обработчик onClick(if (radiobutton1->cheked)......), что мне написать в обработчике, дабы сделать RadioButton visible=false,и создать другие контролы со своими обработчикаи на той же форме в зависимости от выбора юзера.

Добавлено через 40 минут
есть ещё такой вариант

C++
1
2
3
4
5
6
7
8
9
10
11
  void _fastcall TForm3::B1Click(TObject* Sender)
  {
    TWinControl * Control = (TWinControl*)Sender;
    TRadioButton * btn1 = (TRadioButton*)Control->Parent->FindComponent("rbn1");
    TRadioButton * btn2 = (TRadioButton*)Control->Parent->FindComponent("rbn2");
    TRadioButton * btn3 = (TRadioButton*)Control->Parent->FindComponent("rbn3");
   if (btn1 != NULL){ if(btn1->Checked){ShowMessage("btn1");} }
    if (btn2 != NULL){if(btn2->Checked){ShowMessage("btn2");}}
   if (btn3 != NULL){ if(btn3->Checked){ShowMessage("btn3");}}
 
  }

но почему-то не находит указатели на радиобаттоны

Добавлено через 26 минут
Так тоже не находит

C++
1
2
TForm* form=(TForm*)Control->Parent;
   if(form->FindChildControl("btn1")!=NULL){ShowMessage("yes");}

хотя форму находит без проблем

@volvo · 11.03.2015, 16:30

ijonhson, ну смотри:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
// сделал это все прямо в CPP-файле Unit1.cpp
 
class TMyForm : public TForm
{
protected:
    virtual void __fastcall WndProc(Winapi::Messages::TMessage &Message)
    {
        if (Message.Msg == (WM_USER + 1))
        {
            reinterpret_cast<TControl*>(Message.LParam)->Visible = Message.WParam;
        }
        TForm::WndProc(Message);
    }
public:
    __fastcall virtual TMyForm(Classes::TComponent* AOwner, int foo) : TForm(AOwner, foo) {}
    void __fastcall rbClick(TObject *Sender);
    void __fastcall btnClick(TObject *Sender);
};
 
void __fastcall TMyForm::btnClick(TObject *Sender)
{
    ShowMessage("Hello, world!");
}
 
void __fastcall TMyForm::rbClick(TObject *Sender)
{
    //
    TRadioButton *rb = static_cast<TRadioButton*>(Sender);
    TMyForm *f = static_cast<TMyForm*>(rb->Parent);
    switch(rb->Tag)
    {
        case 1 :
            {
                TButton *btn = new TButton(f);
                btn->Parent = f;
                btn->Caption = "New Button";
                btn->Top = 75; btn->Left = 10;
                btn->OnClick = btnClick;
            }
            break;
 
        case 2:
            {
                TComboBox *cbx = new TComboBox(f);
                cbx->Parent = f;
                cbx->Top = 75; cbx->Left = 10;
                for(int i = 0; i < 10; i++) cbx->Items->Add(IntToStr(i));
            }
            break;
 
    }
    ::PostMessage(f->Handle, WM_USER + 1, 0, (LPARAM)rb); // скрываем RadioButton
 
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TMyForm *frm = new TMyForm(Application, 0);
 
    TRadioButton *rb;
    rb = new TRadioButton(frm);
    rb->Parent = frm;
    rb->Tag = 1;
    rb->OnClick = frm->rbClick;
    rb->Top = 10; rb->Left = 10; rb->Caption = "Button";
 
    rb = new TRadioButton(frm);
    rb->Parent = frm;
    rb->Tag = 2;
    rb->OnClick = frm->rbClick;
    rb->Top = 30; rb->Left = 10; rb->Caption = "ComboBox";
 
    rb = new TRadioButton(frm);
    rb->Parent = frm;
    rb->Tag = 3;
    rb->OnClick = frm->rbClick;
    rb->Top = 50; rb->Left = 10; rb->Caption = "Nothing";
 
    frm->Show();
}

Новые блоги и статьи Все статьи Все блоги /
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .

@ijonhson 47 / 47 / 15 Регистрация: 09.03.2011 Сообщений: 584

	Передать в обработчик параметр 11.03.2015, 04:13. Показов 2879. Ответов 3 Метки нет (Все метки) Всем доброй ночи, хочу разгрузить озу юзера и создать все диалоги(а их уже насобиралось около 50, будет больше) динамически. Как в обработчик динамически созданной кнопки на динамически созданной форме передать саму форму например, хотя-бы для close() 0

@volvo Супер-модератор 33405 / 21515 / 8236 Регистрация: 22.10.2011 Сообщений: 36,916 Записей в блоге: 12
	11.03.2015, 11:47
	Вообще-то у кнопки есть Parent, а сама кнопка передается через Sender. 0

Передать в обработчик параметр

Решение