delphi - 如何拦截(检测)粘贴命令到 TMemo 中？

Question

如何在将文本粘贴到TMemo之前捕获粘贴命令并更改剪贴板的文本，但是粘贴后，剪贴板中的文本必须与更改之前相同？

例如，剪贴板有文本 'Simple Question'，TMemo 中的文本为 'Симплe Qуeстиoн'，在该文本之后剪贴板中的内容与更改之前一样，'简单问题'。

Answer 1

派生一个从“TMemo”派生的新控件来拦截 WM_PASTE 消息:

type
  TPastelessMemo = class(TMemo)
  protected
    procedure WMPaste(var Message: TWMPaste); message WM_PASTE;
  end;

uses
  clipbrd;

procedure TPastelessMemo.WMPaste(var Message: TWMPaste);
var
  SaveClipboard: string;
begin
  SaveClipboard := Clipboard.AsText;
  Clipboard.AsText := 'Simple Question';
  inherited;
  Clipboard.AsText := SaveClipboard;
end;

如果您想完全禁止任何粘贴操作，请清空 WMPaste 处理程序。