>>I dragged cmdCancelMaint button from the KCustCtl to my form. Now if I press this cancel button instead of the previous one it gave the same message. Are u saying that I need to fix the code in the cmdCancelMaint parent class.
>
>Well, yes, if that's where the error is. IAC, from the code below, it looks like the problem I suggested in my first post. You're calling it as a function instead of method. See the bolded line below to see what I mean.
>
>>The code in the parent is
>
>
>>LOCAL llFormIsPresent
>>
>>llFormIsPresent = ( TYPE('THISFORM') <> 'U' )
>>
>>IF llFormIsPresent
>> *----------------------------
>> *-- ThisForm.LockScreen = .T.
>> *----------------------------
>> =LockScreen(.T.)
> ^^^^^^^^^^^^^^^
>Either you have a function in some PRG called LockScreen (which wouldn't be wise since it's a reserved word), and you need a SET PROCEDURE TO thePRG, or you need to just set the form's property like so:
>
>THISFORM.LOCKSCREEN
>
>*---------------------------------------------
>> *--- Cancel the current Record. Pass .T. so
>> *--- that all records in any table-buffered
>> *--- cursors are reverted when cancelling.
>> *---------------------------------------------
>> ThisForm.Cancel(.T.)
>>ENDIF
>>
>>thanks
>>bharat
There is a function called LockScreen in the utilities.prg. I have never had a problem with this function. How are you launching the form?
