Question

delphi中关于复制控件的问题

请资深的delphi朋友帮忙....
请问一下用代码能否复制控件,比如说在form1中添加了一个button控件,单击一下butto按钮就会再添加一个button,再单击任意一个button又会再多添加一个...这样的一个功能能否实现,如果可以的话能否给出代码?

Answer 1

举例一个，新建一个form，在里面添加一个BUTTON，在其点击事件函数中用下面的：试试看你就知道了。

procedure TForm1.Button1Click(Sender: TObject);
var
BTN:TButton;
begin
BTN:=TButton(Sender);
with TButton.Create(self) do
begin
Parent:=self;
Visible:=true;
Caption:=BTN.Caption;
Width:=BTN.Width;
Height:=BTN.Height;
Top:=BTN.Top+Random(100);
Left:=BTN.Left+Random(100);
OnClick:=Button1Click;
end;
end;

Answer 2

上面的对,顶一下吧