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