delphi 翻译cb ；关于同一方法多控件调用的方法！用sender判断！解决方案

delphi 翻译cb ；关于同一方法多控件调用的方法！用sender判断！

C/C++ code

for (int i = 0;i< 10;i++){TButton *newbtn=new TButton(Panel1);  newbtn->Parent =Panel1;  newbtn->OnClick = clickllll();}

C/C++ code

void clickllll(TObject *sender){  //代码(看下面的delphi代码进行翻译一下!谢谢大神们!)}

Delphi(Pascal) code

procedure clickllll(sender: Tobject)begin  (sender as Tbutton).font.size := 10;end;

C/C++ code

void __fastcall clickllll(TObject *sender){    ((TButton *)Sender)->Font->Size = 10;}