在空的Form里加个Button,写入
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (long k=0; k<5; k++)
{
TLabel * label = new TLabel (Application);
label->Left = 10;
label->Top = k*30;
label->Parent = this;
label->Caption = "AAAA";
label->OnClick = LabelClick_All;
}
}

然后写:
void __fastcall TForm1::LabelClick_All(TObject *Sender)
{
TLabel * label = (TLabel*)Sender;
label->Caption = "Clicked!";
}

Form的头文件里手动写:
void __fastcall LabelClick_All(TObject *Sender);

运行,点击Button1会看到5个Label,然后点哪个,哪个就变Caption
OnClick是函数指针,可以程序修改。其他消息响应函数同。

相关文章:

  • 2022-12-23
  • 2021-10-11
  • 2022-12-23
  • 2021-08-31
  • 2021-08-05
  • 2021-09-08
  • 2021-09-01
  • 2022-12-23
猜你喜欢
  • 2022-02-12
  • 2022-12-23
  • 2022-01-24
  • 2022-12-23
  • 2021-07-23
  • 2021-10-11
  • 2021-10-08
相关资源
相似解决方案