用最少的代碼為你的窗體實作剪貼闆操作

procedure TForm1.Cut1Click(Sender: TObject);   

begin  

SendMessage (ActiveControl.Handle, WM_Cut, 0, 0);   

end;   

procedure TForm1.Copy1Click(Sender: TObject);   

SendMessage (ActiveControl.Handle, WM_Copy, 0, 0);   

procedure TForm1.Paste1Click(Sender: TObject);   

SendMessage (ActiveControl.Handle, WM_Paste, 0, 0);   

//如果你開發一個MDI應用程式，你需要保證資訊發送到活動子視窗，使用：   

ActiveMDIChild.ActiveControl.Handle   

    本文轉自 OldHawk  部落格園部落格，原文連結：http://www.cnblogs.com/taobataoma/archive/2007/08/15/856428.html，如需轉載請自行聯系原作者