FOldWndProc: TWndMethod;
...
with (Owner as TForm) do begin
FOldWndProc:=WindowProc;
WindowProc:=NewWndProc;
end;
A NewWndProc eljárásban az Msg paraméter Msg mezőjéből tudjuk meg az üzenet kódját. Természetesen meg kell hívnunk az eredeti eljárást is, hogy a Form is megkapja az üzeneteket.