Window Message an eigenes Fenster abfangen

[Eichhoernchen]

achsoo.. ich kenne mich da nicht so aus... ich wusste nicht wie sowas geht, ich teste das mal aus

Edit:

Juhuu klappt, hab es jetzt so gemacht:

Delphi-Quellcode:

type
  TWndTestWnd = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
     procedure WndProc(var Message: TMessage); override;
  public
    { Public-Deklarationen }
  end;

var
  WndTestWnd: TWndTestWnd;
  WM_INFRA_IO: cardinal;


implementation

{$R *.dfm}

{ TForm1 }

procedure TWndTestWnd.FormCreate(Sender: TObject);
begin
 WM_INFRA_IO := RegisterWindowMessage('WM_INFRA_IO');
end;

procedure TWndTestWnd.WndProc(var Message: TMessage);
begin
  if (Message.Msg = WM_INFRA_IO) then
  begin
    showmessage('YEAHHH');
  end;
  inherited;
end;

Dankeschön, aber woher soll man den auch wissen, was man alles überschreiben kann?