Information générale
Catégorie:
Gestionnaire d'écran & Écrans
*!* Begin Code Sample
PUBLIC x
x = CREAT([oForm1])
x.SHOW
DEFINE CLASS oForm1 AS FORM
AUTOCENTER = .T.
ADD OBJECT button1 AS BUTTON
button1.LEFT = 1000
ADD OBJECT label1 AS LABEL
label1.LEFT = 125
label1.TOP = 75
label1.CAPTION = [Hit the ESC key.]
ENDDEFINE
DEFINE CLASS BUTTON AS COMMANDBUTTON
CANCEL = .T.
PROC CLICK
RELEASE THISFORM
ENDPROC
ENDDEFINE
*!* End Code Sample
>The user can close the form with CTRL+F4 or clicking the upper right corner or object with "ThisForm.release()" code.
>How could I make that the "ESC" would have the same effect?
>
>Thank's, Zlatko.
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