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

[yshuui]

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

[jdngz]

使用sender

[yshuui]

怎么用？

[柯本]

给你个EX参考一下,全部消息转发可能会有问题的

unit Unit1;

interface

uses
  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.

[Mit1208]

up.

[LAZIJIDING]

mark