TActionList: property OnExecute: TActionEvent; TActionEvent = procedure (Action: TBasicAction; var Handled: Boolean) of object; Егер бұл уақиғаның өңдегіші сізбен қаралмаса онда келесі уақиға генерациясы орындалады — қадам 2. 2. Глобальды Application обьектісінің onActionExecute уақиғалар өңдегіші шақырылады (уақиға типі алдындағыдай — TActionEvent). Егер әрекет сигналын орындамаса онда келесі қадамға өтеміз. 3. Әрекеттің өзінен onExecute уақиға өңдегіші шақырылады (объекттипі TAction немесе мұраға алынады). 4. Егер бірінші үш қадам жағдайды өңдемесе (False болса), онда, мүмкін, бұл дұрыс қойылмаған мақсатқа байланысты болған шығар (Target). Соңғы шанс ретінде қосымшаға CM_ACTIONEXECUTE хабарламасы жіберіледі. Бұл жағдайда бұл жағдай үшін басқа мақсат ізделеді. onupdate уақиғаларды енгізу. onupdate уақиғаларды қолдануға мысал: onupdate уақиғаларды енгізу. onupdate уақиғаларды қолдануға мысал: procedure TForml.PasteActionUpdate(Sender: TObject); begin TAction(Sender).Checked := Clipboard.HasFormat(CFJTEXT); end; Ескерту onupdate уақиғаларды шақыру кезінде де 4 – этаптық әрекеттер тізбегі орындалады, ол алдыңғы OnExecute –ге ұқсас. Үшінші уақиға типі келесідегідей: THintEvent = procedure (var HintStr: string; var CanShow: Boolean) of object; Ол басқару элементінен берілген әрекетке байланысты жауаптар керек болған кезде шақырылады. Уақығалар өңдегішінде бірнәрсе шығатын шықпайтындығын көрсетуге болады (CanShow параметрі) және, егер шықса онда не шығатындығы (Hintstr параметрі). Бұлар Taction компонентіне байланысты уақиғалар болған. Ал TActionList компонентінің өзінің үш уақиғасы бар: OnExecute, OnUpdate және OnChange. Бірінші екеуін біз қарастырдық; ал үшінші тізімді өзгерту кезінде орындалады (әрекеттерді қосу немесе жою). Әрекеттер клиенттеріне таратылатын қасиеттерЕгер бірнеше басқыштардың немесе меню пунктерінің бір ғана жалпы өңдегіші болса, онда олардың басқа қасиеттерінің де бірдей болуын талап еткен дұрыс. Delphi –де ол солай тартылған.
Достарыңызбен бөлісу: |
