Windows 消息【二】窗口函数

前一篇文章讲到非队列消息会直接把消息Dispatch到窗口函数上，窗口函数长什么样？

//就是一个大case分支
//要想拦截消息，override窗口函数是一个办法！
procedure TCustomForm.WndProc(var Message: TMessage);
var
  FocusHandle: HWND;
  SaveIndex: Integer;
  MenuItem: TMenuItem;
  Canvas: TCanvas;
  DC: HDC;
begin
  with Message do
    case Msg of
      WM_ACTIVATE, WM_SETFOCUS, WM_KILLFOCUS:
        begin
        end;
      CM_EXIT:
        if HostDockSite <> nil then DeActivate;
    end;
end;

View Code

假如我们要用这种方法拦截Edit的Copy,Cut消息怎么办？

难道我们还要继承CustomEdit,再override窗口函数，生成新的MyEdit?有人想，直接用一个函数先把CustomEdit的WndProc替换掉不就行了，使用完毕后，再还原！

//替换窗口函数 
 TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FOldWndProc:  TWndMethod;

    { Private declarations }
  public
    { Public declarations }
      procedure  NewWndProc(var  Message:  TMessage);  

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure  TForm1.NewWndProc(var  Message:  TMessage);
begin
    if  (Message.Msg  <>  WM_CUT)  and  (Message.Msg  <>  WM_COPY)  and
        (Message.Msg  <>  WM_PASTE)  then
        FOldWndProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FOldWndProc  :=  edt1.WindowProc;
   edt1.WindowProc  :=  NewWndProc;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  edt1.WindowProc  :=  FOldWndProc;
end;
end.

View Code