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   

    本文转自 OldHawk  博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/08/15/856428.html，如需转载请自行联系原作者