动态生成的控件怎样给它添加事件?
刚刚学会怎样动态生成控件,但是不知道怎样往这些动态生成控件里添加事件,有哪位给我举个例,如下:
procedure TForm1.FormCreate(Sender: TObject);
var
a:tbutton;
begin
a:=tbutton.Create(self);
with a do
begin
Top:=100;
Left:=100;
Height:=20;
Width:=100;
Parent:=form1;
OnClick:=//.....该怎样写了?或者应该用别的方法
end;
end;