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

[v1srine]

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

}

我连续创建10个按钮！使用同一方法！

方法代码！

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

delphi 代码

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

请问c++b里面想delphi的方法怎么做到？

[ccrun.com]

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

[v1srine]

谢谢妖大神！

[v1srine]

[Quote=引用 1 楼 ccrun 的回复:]
C/C++ code
void __fastcall clickllll(TObject *sender)
{
((TButton *)Sender)->Font->Size = 10;
}
[/Quote]

妖哥！。

[BCC32 Error] UGatherClass.cpp(77): E2034 Cannot convert 'void (*)(TObject *)' to 'TNotifyEvent'

我调用出错哦！

[v1srine]

newbtn->OnClick = clickllll;

我是这样写的！

[ccrun.com]

clickllll需要声明在Form类中，并且格式如下：
void __fastcall TForm::clickllll(TObject *);

[v1srine]

[Quote=引用 5 楼 ccrun 的回复:]
clickllll需要声明在Form类中，并且格式如下：
void __fastcall TForm::clickllll(TObject *);
[/Quote]
谢谢！