제가 질문을 잘못 이해 한건지는 몰라도..


WndMethod1 := Panel1.WindowProc;
Panel1.WindowProc := HandleMessage1;

WndMethod2 := Panel2.WindowProc;
Panel2.WindowProc := HandleMessage2;

이럼 되지 않나요??

저도 그러면 될줄 알았는데 그럴경우 panel2 없어져 버리네요.
후킹때문에 충돌이 나는것 같기도 한데..
그처리를 모르겠더군요..

저는 아래 처럼 했는데요.

원하시는게 이것이 맞는지..


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    WndMethod1 : TWndMethod;
    WndMethod2 : TWndMethod;
    procedure HandleMessage1(var msg : TMessage);
    procedure HandleMessage2(var msg : TMessage);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  Panel1.WindowProc := WndMethod1;
//  Panel2.WindowProc := WndMethod2;

  Action := Cafree;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WndMethod1 := Panel1.WindowProc;
  Panel1.WindowProc := HandleMessage1;

  WndMethod2 := Panel2.WindowProc;
  Panel2.WindowProc := HandleMessage2;
end;

procedure TForm1.HandleMessage1(var msg : TMessage);
begin
  WndMethod1(msg);

  case msg.Msg of
    WM_LBUTTONDOWN:
    begin
      showmessage('panel1 Ldown');
    end;
  end;


end;

procedure TForm1.HandleMessage2(var msg : TMessage);
begin
  WndMethod2(msg);

  case msg.Msg of
    WM_LBUTTONDOWN:
    begin
      showmessage('panel2 Ldown');
    end;
  end;


end;

end.