if not thisform.addmode or not editmode exit endif * continue here with the usual actions>Hi All,
>*keypress event > >Lparameters nKeyCode, nShiftAltCtrl > >Do Case >Case nKeyCode=18 &&pgup >oToolbar.cmdonceki.click &&This.onceki() >Case nKeyCode=3 &&pgdn >oToolbar.cmdsonraki.click &&This.sonraki() >Case nKeyCode=31 &&ctrl+pgup >oToolbar.cmdilk.click &&This.ilk() >Case nKeyCode=30 &&ctrl+pgdn >oToolbar.cmdson.click &&This.son() >Case nKeyCode=-1 &&f2 >oToolbar.cmdyeni.click &&This.yeni() >Case nKeyCode=-2 &&f3 >oToolbar.cmdkaydet.click &&This.kaydet() >Case nKeyCode=-3 &&f4 >oToolbar.cmdduzelt.click &&This.duzelt() >Case nKeyCode=-4 && f5 >oToolbar.cmdvazgec.click && This.vazgec() >Case nKeyCode=-5 && f6 >oToolbar.cmdsil.click &&This.sil() >Case nKeyCode=-7&& f8 >oToolbar.cmdbul.click &&This.bul() >Case nKeyCode=-8 && f9 >oToolbar.cmdyazdir.click &&This.yazdir() >Case nKeyCode=-9 && f10 >oToolbar.cmdcik.click &&This.cik() >Case nKeyCode=27 &&esc > Thisform.Release >Endcase >>
>if thisform.addmode=.t. and editmode=.t. >ON KEY LABEL F3 otoolbar.cmdkaydet.click &&top >ON KEY LABEL F5 otoolbar.cmdvazgec.click &&top > NODEFAULT >else >do case >..... >endcase >endif >>