动态生成SpeedButton组件的方法和事件

Question

我现在需要动态生成动态生成SpeedButton组件，并且要编写所生成的SpeedButton组件的事件(Click)，请大家帮助一下，写个实例，谢谢!

Answer 1

private
    procedure SpeedButton1Click(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var btn:TspeedButton;
begin
with TspeedButton.Create(self) do
begin
  Caption := '请点击';
  Width := 60;
  Height := 30;
  Name := 'btn1';
  Parent := Self;
  left := 100;
  top:= 100;
  OnClick := SpeedButton1Click;
end;end;procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ShowMessage(TSpeedButton(sender).Name +'单击!');
end;

Answer 2

那如果已经注入到一个外部程序, 如何在外部程序现有的SpeedButton后面, 再增加一个呢? 并响应click

Answer 3

SpeedButton后面要计算位置，最好是指定。

Answer 4

如果确实需要动态生成事件代码
如楼说所说可以自定一些事件代码，然后等于事件，
但如果你想动态生成代码，需要用于SCRIPT JAVA或其它