Question

在delphi中如何对动态生成的控件设置其方法，例如botton.click?

Answer 1

TForm1=class(TForm)
.......
private
........
public
procedure ButtonClick(Sender: TObject);
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
do something;
end;

//给button 的click事件赋值
button.OnClick:= ButtonClick;

Answer 2

procedure btnClick;
begin
//
end;

botton.click:=btnClick;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
newitem: TMenuItem;
procedure testCall;
begin
ShowMessage('test Call');
end;
begin
newitem:= TMenuItem.Create(self);
newitem.Caption:= 'test Call';
newitem.OnClick:= Button2.OnClick;
MainMenu1.Items.Add(newitem);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('test Call');
end;