ESC interrupt the query when escape set on. After user response to continue or stop the query messagebox, query is continuing from interrupted point.




>Update: Actually I am not sure whether ESC will interrupt the query if there is an ON ESCAPE. Perhaps you must use something like SET ESCAPE ON, but then I am not sure how to detect whether the command was actually interrupted.
>
>>CANCEL doesn't interrupt the query - the query was already interrupted with the ESC key.
>>
>>You must just consider how you want to handle the interruption, for instance, tell the user that the query was interrupted and that the process can't continue:
>>
>>

>>if llInterrupted
>>  MessageBox("The process was interrupted.")
>>  return
>>endif
>>

>>
>>
>>>Is there any alternative command or technique instead of "cancel" command at the interrruptmessage procedure. Because "cancel" don't prevent the query it also quit the whole program. I want to cut only running query in case of necessity.
>>>
>>>Thanks in advance
>>>
>>>Altun
>>>
>>>
>>>

>>>cQryStr = "select * from customer where name like 'A%'"
>>>cEscState = set("escape")
>>>
>>>set Escape on
>>>ON ESCAPE DO interrruptmessage
>>>&cQryStr
>>>set Escape &cEscState
>>>
>>>
>>>
>>>*****
>>>procedure interrruptmessage()
>>>
>>>if messagebox("To stop the query  press 'OK', to continue press 'Cancel' button.", 1+32)=1
>>>        messagebox("Query cancelled", 0+16)
>>>	cancel		
>>>	return .F.
>>>else
>>>	wait window "Query is continuing." nowait	
>>>endif
>>>return .F.
>>>
>>>ENDPROC
>>>