如何使用最少的代码为你的窗体有效地提供剪贴板的相关操作

 如何使用最少的代码为你的窗体有效地提供剪贴板的相关操作
关键字：剪切 复制 粘贴 sendmessage
类　别：API

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