如何拦截和抑制 TFrame 子组件的消息？

我需要拦截WM_PASTE message https://stackoverflow.com/questions/10158861/how-to-intercept-detect-a-paste-command-into-a-tmemo/10158921#10158921 for a TEdit放置在内部的组件TFrame的后代阶级。

如果不满足条件，我想取消粘贴操作。

有没有办法在帧级别做到这一点？ （我的意思是，没有声明TEdit的后裔）

有没有办法在帧级别做到这一点？ （我的意思是，没有声明TEdit的后裔）

WM_PASTE被直接发送到TEdit窗口, 的TFrame永远不会看到它，所以你必须子类化TEdit直接拦截消息。您可以：

• 有TFrame分配一个处理程序到TEdit's WindowProc财产。如果您只有几个，这是一个简单的方法TEdits到子类，但越多它变得越复杂TEdit你想要子类化：

  type
    TMyFrame = class(TFrame)
      Edit1: TEdit;
      ...
      procedure FrameCreate(Sender: TObject);
      ...
    private
      PrevWndProc: TWndMethod;
      procedure EditWndProc(var Message: TMessage);
      ...
    end;
  
  procedure TMyFrame.FrameCreate(Sender: TObject);
  begin
    PrevWndProc := Edit1.WindowProc;
    Edit1.WindowProc := EditWndProc;
    ...
  end;
  
  procedure TMyFrame.EditWndProc(var Message: TMessage);
  begin
    if Message.Msg = WM_PASTE then
    begin
      if SomeCondition then
        Exit;
    end;
    PrevWndProc(Message);
  end;
  

• 编写并安装一个派生自的新组件TEdit，类似于TMemo你提出的例子 https://stackoverflow.com/a/10158921/65863.

• 定义一个本地的插入器类TFrame的单位，上面TFrame类声明，它将拦截WM_PASTE for every TEdit在框架上：

  type
    TEdit = class(Vcl.StdCtrls.TEdit)
      procedure WMPaste(var Message: TMessage); message WM_PASTE;
    end;
  
    TMyFrame = class(TFrame)
      Edit1: TEdit;
      Edit2: TEdit;
      ...
    end;
  
  procedure TEdit.WMPaste(var Message: TMessage);
  begin
    if not SomeCondition then
      inherited;
  end;