如何使用最少的代碼為你的窗體有效地提供剪貼闆的相關操作

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