如何剪切、复制、粘贴控件(关于剪贴板的问题) ( 积分: 100 )

我在一个panel上动态生成一个Tbutton，如何实现这个按钮的剪切、复制、粘贴功能？？

我在一个panel上动态生成一个Tbutton，如何实现这个按钮的剪切、复制、粘贴功能？？

复制就是复制它的一些属性，如：Name, Caption, Width, Height等。粘贴就是利用这些属性在另外地方重新建一个。剪切就是把原来的属性先复制后再Free掉。

能不能比较详细点，最好有代码

我想实现的功能是：<br>1、单击“剪切”按钮，将panel1上的button1剪切掉<br>2、单击“复制”按钮，将panel1上的button1复制到剪贴板<br>3、单击“粘贴”按钮，将刚剪切或复制的button1粘贴到panel1上

高手呢？？？你们在哪里啊？？？？？？

给个思路你：(异常没考虑)<br>procedure CopyFromButton(OldButton,NewButton:TButton;Rect:TRect);<br>begin<br> &nbsp;NewButton:=TButton.Create(nil);<br> &nbsp;NewButton.SetBounds(Rect.Left,Rect.Top,rect.Right-rect.Left,rect.Bottom-rect.Top);<br> &nbsp;NewButton.Parent:=OldButton.Parent;<br> &nbsp;NewButton.OnClick:=form1.Button1Click;<br> &nbsp;NewButton.Caption:='New';<br> &nbsp;OldButton.Free;<br> &nbsp;NewButton.Show;<br>end;<br><br>procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;<br> &nbsp;Shift: TShiftState);<br>var Button2:TButton;<br> &nbsp; &nbsp;Rect:TRect;<br>begin<br> &nbsp;Rect.Left:=10;<br> &nbsp;Rect.Right:=100;<br> &nbsp;Rect.Top:=10;<br> &nbsp;Rect.Bottom:=40;<br> &nbsp;if (Shift=[ssCtrl]) and (Key=$43) then<br> &nbsp;begin<br> &nbsp; &nbsp;showmessage('Ctrl C');<br> &nbsp; &nbsp;CopyFromButton(Button1,Button2,Rect);<br> &nbsp;end;<br>end;

TStream.WriteComponent、TStream.ReadComponent更好用些