Well, for anyone who cares - here is how I solved this. I manually handled the skipping of the first two fields. I figured they could get focus three ways:
1) User clicks
2) Tab at col10, or shift-tab at col3
3) Default focus by activate()
I made col1 and col2 read only.
I made the "MouseDown" event of the first two Columns be:
IF (nButton <> 2)
NODEFAULT
THIS.Parent.Parent.col3.SetFocus()
ENDIF
and put my rightClick() event as I normally would.
***
The Grid.SetFocus() Event does:
THIS.col3.SetFocus
***
The col3.text1.KeyPress does:
IF (nKeycode = 15 .AND. nShiftAltCtrl = 1) && shift-tab
THIS.Parent.Parent.col10.SetFocus() && last column
NODEFAULT
ENDIF
***
The col10.KeyPress does:
IF (nKeycode = 9 .AND. nShiftAltCtrl = 0)
THIS.Parent.Parent.col3.Setfocus()
NODEFAULT
ENDIF
And that seems to work. I know it's not nice, and it is not International, but for us, right now, it will work ;)
Tim
Précédent
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