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

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

http://www.cnblogs.com/taobataoma/archive/2007/08/15/856428.html

posted @ 2011-02-26 11:21  阳光不远  阅读(186)  评论(0编辑  收藏  举报