Subclassing: ZaΦφnßme
Abychom spustili subclassing naÜeho okna a vid∞li zprßvy, kterΘ nßm budou Windows zasφlat, tak si otev°ete Form1 a do n∞j zapiÜte nßsledujφcφ k≤d:
Private
Sub Form_Load()
oldWindowProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, _
AddressOf NewWindowProc)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Me.hWnd, GWL_WNDPROC, oldWindowProc
End Sub
Tak a nynφ je vÜe p°ipraveno pro prvnφ spuÜt∞nφ aplikace. Spus¥te projekt a
do Debug okna se zaΦnou zapisovat vÜechny zprßvy, kterΘ Windows zasφlajφ.
Zkuste si p°esunout formulß°, minimalizovat, maximalizovat atd.
Pro ukonΦenφ klikn∞te na "x" tlaΦφtko ... neukonΦujte b∞h pomocφ STOP!
Nebylo to funny ? :)))))) Bohu₧el to nebylo v∙bec u₧iteΦnΘ ....ok, p°idßme si trochu k≤du, aby nßm to k n∞Φemu bylo.