>*** GotFocus Event >this.Tag = IIF(this.Value,"1","0") > >*** Lost Focus >IF NOT this.Tag == IIF(this.Value,"1","0") ; > AND MESSAGEBOX('ok to click?',4,'test') = 7 > this.Value = (this.Tag == "1") >ENDIF >I solved the problem:
IF thisform.lMadeChanges AND thisform.AskToSave() = 2 RETURN .f. ELSE this.Value = not this.Value this.Click() ENDIFClick event - normal logic.