Jeliko₧ message handler TWBaseServer602.WMCommand(var Msg: TMessage)
t°φdy TWBaseServer602
zasφlß p°ijatΘ automatickΘ zprßvy zp∞t v₧dy tomu formulß°i, kter² zprßvu rßmcovΘmu oknu poslal , je mo₧nΘ tyto zprßvy ve window procedu°e formulß°e odchytit a spustit v okam₧iku odchycenφ p°φsluÜnΘ event handlery, co₧ komponenta TView602
d∞lß . Tyto zprßvy je tedy mo₧nΘ obslou₧it na dvou ·rovnφch :na ·rovni rßmcovΘho okna (komponenta TMsgFrame
) Φi na ·rovni formulß°e (komponenta TWBView
).Tyto udßlosti a jim odpovφdajφcφ zprßvy jsou podmno₧inou on∞ch, je₧ jsou popsßny v t°φd∞ TMsgFrame
. Jednß se o tyto udßlosti:
OnRecEnter, OnChange, OnReset_Record, OnReset_View, OnSubCursr, OnSuperCursor
DalÜφ automatickΘ zprßvy krom∞ v²Üe uveden²ch vyvolajφ udßlost OnOtherWMCmd999
DalÜφ udßlosti si m∙₧e u₧ivatel do zdrojovΘho k≤du komponenty TView602
doplnit podle vzoru v²Üe uveden²ch udßlostφ. Udßlosti jsou vesm∞s typu
TWBEvent = procedure(Sender: TObject; var Msg: TMessage) of object;