>******************************************************************** >* Description.......: CancelValidation >* Calling Samples...: >* Parameter List....: >* Created by........: ideas by John Koziol /Cetin Basoz >* Modified by.......: NN >******************************************************************** >local llReturn, loObject, laMouseObj[1] >amouseobj(laMouseObj,1) >*loObject = SYS(1270) && Object under mouse >loObject = laMouseObj[1,1] llReturn = vartype(m.loObject) == "O" AND inlist(lower(m.loObject.Name),"cmdcancel","cmdclose") and mdown() > >return m.llReturn or lastkey()= 46 or thisform.releasetype = 1 && Alt+C (shortcut for Cancel)>
= LEFT(STREXTRACT(m.loObject.caption,"\<"),1)