本文整理自网络,侵删。
如何使用最少的代码为你的窗体有效地提供剪贴板的相关操作
关键字:剪切 复制 粘贴 sendmessage
类 别:API
view plaincopy to clipboardprint?
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
相关阅读 >>
Delphi removeinvalid截取字符串某个字符前面的字符
更多相关阅读请进入《Delphi》频道 >>