Question

delphi 动态控件????

在窗体上动态生成一个按键BUTTON 但是没有事件啊? 比入 CLICK 事件(鼠标单击)? 不知咋办???????

Answer 1

先写好一个过程，将之赋值给你动态创建的按键BUTTON 即可!

procedure click(sender:Tobject)
begin
....
end;

BUTTON1.onclick:=click;即可！！！(BUTTON1是你动态创建的)

Answer 2

procedure btn2Click(Sender: TObject);

procedure TForm1.btn2Click(Sender: TObject);
begin
Form2.SHOW;
end;
btn2.OnClick:=btn2Click;
事件这么写