Visual Foxpro - Tips & Tricks

Funktionstaste? - im Keypress einer Form feststellen
   
Autor : n.Olivier
Firma : Nachbagauer Olivier
Copyright 1999
Nutzungsbedingungen -
Homepage www.nOlivier.Com
eMail Nachbagauer Olivier
Allgemein -
Verwendung

Foxpro 6.0 & 7.0 & 8.0

Dieser Code wird in das KeyPress des
Objektes (z.B. Form) eingefügt.
Die Variable lFunkTaste ergibt bei
einer Funktionstaste .T. (TRUE)

   
   
 

* lFunkTaste = .T. wenn
* es eine Funktionstaste ist

xComp = set('COMPATIBLE')
SET COMPATIBLE on
lFunkTaste = .t.
if nKeyCode => 84 and nKeyCode <= 93
 if lastkey() > 0
  lFunkTaste = .f.
 endif
endif
SET COMPATIBLE &xComp