如何为动态创建的按钮编写函数Click()？

Question

尝试编写一个简单的 VCL 程序用于教育目的（动态创建的表单、控件等）。有这样的示例代码：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TForm* formQuiz = new TForm(this);
    formQuiz->BorderIcons = TBorderIcons() << biSystemMenu >> biMinimize >> biMaximize;
    formQuiz->Position = TPosition::poDesktopCenter;
    formQuiz->Width = 250;
    formQuiz->Height = 250;
    formQuiz->Visible = true;

    TButton* btnDecToBin = new TButton(formQuiz);
    btnDecToBin->Parent = formQuiz;
    btnDecToBin->Left = 88;
    btnDecToBin->Top = 28;
    btnDecToBin->Caption = "Dec to Bin";
    btnDecToBin->Visible = true;
}

我想知道如何为动态创建的按钮编写一个函数，以便在单击按钮时调用它。在此示例中，我需要一个 'btnDecToBin->Click();' func 但我不知道应该把它放在哪里。

在“void __fastcall TForm1::Button1Click(TObject *Sender){}”内？

我将不胜感激任何意见，还有谷歌的一些关键字。

Answer 1

您可以做两件事，您可以创建一个操作并将其与按钮关联，也可以创建一个如下所示的函数：

void __fastcall TForm1::DynButtonClick(TObject *Sender)
{
    // Find out which button was pressed:
    TButton *btn = dynamic_cast<TButton *>(Sender);

    if (btn)
    {
        // Do action here with button (btn).
    }
}

通过设置 OnClick 属性 btnDecToBin->OnClick = DynButtonClick 将其绑定到按钮实例 请注意，该函数位于 Form1 表单内。由于闭包的性质（编译器特定的添加），这将起作用。如果您在 formQuiz 之前删除 Form1 而没有删除对 click 事件的引用，就会出现问题。从很多方面来说，在这种情况下使用操作可能是一个更干净的解决方案。

编辑：以其他方式执行此操作，如果您的测验表单有标准布局，则可以创建一个继承自 TForm 的自定义 TQuizForm 类。这样，您就不必在每次创建表单时都绑定事件。

Answer 2

所有按钮都有正常的“事件”，您只需将它们引用到您将处理事件的方法即可。

示例：

...    
btnDecToBin->OnClick = &Test;

-- 向 .cpp 添加一个附加方法

void __fastcall TForm1::Test(TObject *Sender)
{

   TButton *btn = dynamic_cast<TButton *>(Sender);

    if (btn->name == "your_button_name"){         
    // Do action here with button (btn).     
    }

}

，并在 .h 上

void __fastcall TForm1::Test(TObject *Sender);

通过标签或名称引用按钮。我通常使用动态创建的一系列按钮。始终通过投射来检查您的“发件人”。还有其他方法可以从对象中获取信息，但它们会导致心痛……哈哈。