本文介绍如何在Delphi中实现剪切(Ctrl+X)、复制(Ctrl+C)和粘贴(Ctrl+V)的功能。通过使用Delphi窗体上的控件，并调用Windows的消息函数WM_Cut、WM_Copy和WM_Paste来完成操作。
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应用程序，你需要保证信息发送到活动子窗口，使用：
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，如需转载请自行联系原作者
扫一扫
40
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
