p19992003: 怎样将一个控件收到的消息全部转发另一个控件上去？（转发）

2017年4月18日星期二

给你个EX参考一下,全部消息转发可能会有问题的unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     oldproc:TWndMethod;
     procedure  testmsg(var mess: TMessage);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure  TForm1.testmsg(var mess: TMessage);
begin
  oldproc( mess);
  SendMessage(Edit2.Handle,mess.Msg,mess.WParam,mess.LParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
oldproc:=Edit1.WindowProc;
Edit1.WindowProc:=testmsg;
end;
end.

p19992003