请教右键功能的实现（复制，粘贴，剪切，刷新）？

Question

看了几本书，道理清楚了，但是编码时还是难以下手，
书上的例子又太简化，请教高手指导啦！！比如在RichEdit控件上产生一个Edit控件，然后复制（剪切，
粘贴）这个Edit控件，该如何使用ClipBoard?
这里使用右键功能，而Edit和RichEdit的右键不会是同一个啊！是不是Edit右键的复制功能将这个控件复制到ClipBoard,然后
RichEdit右键的粘贴功能从ClipBoard上复制Edit到RichEdit？还有，刷新功能是不是整个页面都需要重画？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);begin
  RichEdit1.SelectAll;
  RichEdit1.CopyToClipboard;
  Edit1.Clear;
  Edit1.PasteFromClipboard;
  RichEdit1.SetFocus;end;
这是个复制，粘帖的，然后你把POPMENU的某个N1click
begin
button1click;
end;

Answer 2

RichEdit1.CopyToClipboard;//拷贝到剪切板Edit1.PasteFromClipboard;//从剪切板粘贴

Answer 3

Memo1.CopyToClipboard
  Memo1.PasteFromClipboard
  Memo1.CutToClipboard
  Edit1.CopyToClipboard
  Edit1.PasteFromClipboard
  Edit1.CutToClipboard
  RichEdit1.CopyToClipboard
  RichEdit1.PasteFromClipboard

Answer 4

那大家看看我的方法错在哪里了呢？我想复制控件本身，比如复制TEdit控件：
在TEdit的popmenu的复制/剪切中：
procedure TMainForm.Edit1CopyItemClick(Sender: TObject);//复制TEdit控件
begin
   Form1.AEdit.SelectAll;
   ClipBoard.SetComponent(Form1.AEdit);
end;procedure TMainForm.Edit1CutItemClick(Sender: TObject);//剪切TEdit控件
begin
     Form1.AEdit.SelectAll;
     ClipBoard.SetComponent(Form1.AEdit);
     Form1.AEdit.Clear;
end;
在TRichEdit的popmenu的粘贴中：
procedure TMainForm.PasteItemClick(Sender: TObject);//粘贴TEdit控件
begin
  if ClipBoard.HasFormat(CF_COMPONENT) then
  ClipBoard.GetComponent(self,FormNew.RichEditNew);
end;呵呵，比较弱，请教了！

Answer 5

呵呵，我是记得delphi开发环境里放置控件时按下某键(ctrl+?)就可以复制控件
比如在Form上放一个Button，然后按键，可以再生成一个Button，不用去控件板上再拖一个了
我是想实现这个功能，呵呵，是不是我记错了，并没有这个功能啊？
还是并非任何控件都可以被复制的呢？简单说，比如，复制一个TRichEdit控件，而不是复制它的文本内容，该怎么写代码？