用最少的代码为你的窗体实现剪贴板操作

procedure TForm1.Cut1Click(Sender: TObject);   
begin  
SendMessage (ActiveControl.Handle, WM_Cut,  0 ,  0 );   
end;   
  
  
procedure TForm1.Copy1Click(Sender: TObject);   
begin  
SendMessage (ActiveControl.Handle, WM_Copy,  0 ,  0 );   
end;   
  
procedure TForm1.Paste1Click(Sender: TObject);   
begin  
SendMessage (ActiveControl.Handle, WM_Paste,  0 ,  0 );   
end;   
  
// 如果你开发一个MDI应用程序，你需要保证信息发送到活动子窗口，使用：   
ActiveMDIChild.ActiveControl.Handle