C++Builder VCL 按钮数组动态地使每个按钮具有独立的单击操作

Question

我已经尝试了以下方法，但它似乎不起作用并且不完整。

void __fastcall TForm1::Button1Click(TObject *Sender) 
{
    TButton **ButtonArray = NULL;
    ButtonArray = new TButton*[5];

    for(int x = 0; x < 5; ++x) 
    {
        ButtonArray[x] = new TButton(this);
        ButtonArray[x]->Caption = (AnsiString)"teste " + x + " - " + (1+random(100));
        ButtonArray[x]->Left = 25 + 4 * random(100);
        ButtonArray[x]->Top = 25 + 4 * random(100);
    }
}

代码编译没有问题，但似乎没有按钮显示。此外，数组中没有任何操作，按钮的预定义最大值为 5。

Answer 1

要使它们在您的表单中可见，您必须设置按钮的 Parent 属性。

ButtonArray[ x ]->Parent = this;

没有 Action ，因为你没有设置。

void __fastcall TForm1::ButtonClick(TObject *Sender)
{
   MessageBox( Handle, L"Hello", L"Message", MB_OK );
}

在创建按钮时...

ButtonArray[ x ]->OnClick = ButtonClick;