Window Message an eigenes Fenster abfangen

[chrisw]

Muss Du das dann nicht in WndProc abfangen ?

Delphi-Quellcode:

const 
   WM_INFRA_IO = 49408;
type
  TForm1 = class(TForm)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

procedure TForm1.WndProc(var Message: TMessage);
begin
  if (Message.Msg = WM_INFRA_IO) then
  begin
    // hier behandeln 

  end;

  inherited;
end;