自定义右键弹出菜单，原先的粘贴、复制项，如何才能加上？

Question

自定义右键弹出菜单，原先的粘贴、复制项，都没有了，如何才能加上？
或者，右键默认的弹出菜单，能否加上自己定义的菜单项？

Answer 1

procedure TForm1.mniCopyClick(Sender: TObject);
begin
  Memo1.CopyToClipboard;
end;procedure TForm1.mniPasteClick(Sender: TObject);
begin
  Memo1.PasteFromClipboard;
end;

Answer 2

uses
  Clipbrd；
procedure TForm1.Button1Click(Sender: TObject);
begin
  if clipboard.AsText<>'' then 
  BEGIN
   //如果剪贴板不为空
  END;
end;

Answer 3

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  Self.Paste1.Enabled := Length(ClipBoard.AsText)>0;
end;

Answer 4

-_-!
{以Memo为例}uses ClipBrd;
{$R *.dfm}procedure TForm1.Copy1Click(Sender: TObject);
begin
  Memo1.CopyToClipboard;
end;procedure TForm1.Paste1Click(Sender: TObject);
begin
  Memo1.PasteFromClipboard;
end;procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  Self.Paste1.Enabled := Length(ClipBoard.AsText)>0;{如果剪贴板中有文本,就可以粘贴}
  Self.Copy1.Enabled := Memo1.SelLength>0;{如果选中了Memo的部分文本,就可以复制}
end;