Kann ich Windows-Messagehandler einer Form auslagern?

[Aphton]

Wie berits himitsu schrieb

Zitat von himitsu:

Delphi-Quellcode:

protected
  procedure WndProc(var Message: TMessage); override;

Konkreter:

Delphi-Quellcode:

TWindowsMessageHandler = class
   private
      procedure WMEnterSizeMove(var Message:TMessage); // kein TWMSize - du musst hier drinnen die Message dann auswerten
      // oder du befüllst eine TWMSize variable in handleMessage und übergibst es dieser Methode - dann ginge TWMSize -> aber handleMessage sollte nicht diese Aufgabe haben
      // jeder für sich.. 
      procedure WMExitSizeMove(var Message:TMessage);
      [...]         
   public
      procedure handleMessage(var Message: TMessage);
end; 

TSomeForm = class(TForm)
protected
  procedure WndProc(var Message: TMessage); override; 
private
  MyMsgHandler: TWindowsMessageHandler;
end:

(...)
TSomeForm.WndProc(var Message: TMessage);
begin
  inherited;
  MyMsgHandler.handleMessage(Message);
end;

Ganz einfacher Ansatz; diese Lösung reagiert aber auf alle Messages die das Fenster betrifft (die handleMessage Methode, welche ne Filterung nach Msg macht und intern die privaten Methoden aufruft, sollte daher recht flott sein, da die App sonst evt. stottert, weil handleMessage mehrere tausend Mal pro Zeiteinheit aufgerufen werden kann..)