Windowprocs umleiten

[DGL-luke]

Frage geklärt, Thread umgestaltet

Da man öfters mal auf messages reagieren möchte, auf die einem die Komponente keinen Zugriff (z.B. durch Events) gewährt, ist es sehr nützlich, wenn man weiss, wie man eine Windowproc - also die Botschaftsschleife - umbiegt bzw. wrappt. So kann man übrigens auch gezielt Nachrichten vor einem Steuerelement verbergen.

Das geht ganz einfach:

Delphi-Quellcode:

FOldWndProc := FTargetControl.WindowProc;
FTargetControl.WindowProc := InternalWndProc;

FOldWndProc muss eine Variable vom Typ TWndProc sein. Auf diese wird nun die ursprüngliche Wndproc geschoben und der "freie Platz" dann mit InternalWndproc, eine Prozedur die implementiert sein muss, belegt.(Vorsicht, der vorangehende Satz ist technisch nicht ganz korrekt!)

Diese sollte dann in etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.InternalWndProc(var Msg: TMessage);
begin
if Msg.Message = WM_SOME_SPECIAL_MESSAGE then //Message raussuchen
 handlespecialmessage(Msg)                    //Message behandlen
else OldWndProc(Msg);                         //alle anderen Messages werden an das Control weitergegeben
end;

Cool, oder?

Dankeschön an Flocke, der diese Möglichkeit und zwei weitere weiter unten sehr gut erklärt! (Ich möchte auch nicht den Eindruck aufkommen lassen, ich hätte das selbst gemacht - ich habe nur Flockes erste Möglichkeit ein wenig beschrieben!)

Hier nochmal die ursprüngliche Frage:


kann ich die Wndproc eines TTreeview überschreiben?

Delphi-Quellcode:

 OldTVWndProc:=@TVDataBase.windowproc;
 TVDataBase.windowproc := TVWndProc;

Das funktioniert zwar, aber der aufruf von OldWndProc bringt nur AVs. ist das, weil ich es durch die zuweisung aus seinem Klassenkontext reisse?

Geht so etwas anders, ohne eine neue treeview-klasse abzuleiten?

Eigentlich will ich ja nur dateien auf die treeview droppen können - geht das auch einfacher?