Information générale
Catégorie:
Contrôles ActiveX en VFP
Titre:
Lastkey() Loop within oTreeview: MouseUp
Whilst using a simple TreeView connection to a Table all is fine.
I decided that a side menu activated by the Right-Click,(button=2) would be
good idea.
Yes, it all worked well until testing !
It was the USERs fault !
They decided to simultaniously click both the Left & Right mouse button at the same time. It stop the application, and my Treeview was all over the place.
I found the the Left&Right Mouse click created a LASTKEY()=27.
OK. So I trapped the problem. But how to I change the Lastkey() value ?
Sample
Object : oTrreview Procedure: MouseUp
*** ActiveX Control Event ***
LPARAMETERS button, shift, x, y
IF LASTKEY()==27
???
ENDIF
IF button==2
DO CASE
CASE ALLTRIM(datalog.type)=='EQUIP'
DO core_eq.mpr
RELEASE MENU core_eq
CASE ALLTRIM(datalog.type)=='FOLDER'
DO core_ut.mpr
RELEASE MENU core_ut
ENDCASE
RETURN
ENDIF
I have to release & clear but to no avail.
Am I missing something very basic in my old age ?
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement