Titolo: Limitare l'inserimento di caratteri in una variabile
Categoria: Codice |
|
Ultimo Aggiornamento: 21/04/04 |
Inserendo del testo in un campo di tipo Alpha, all'utente viene automaticamente impedito di inserire un numero di caratteri maggiore del numero di caratteri che il campo stesso può contenere. È possibile sviluppare un metodo che simuli questa caratteristica anche nelle variabili intercettando gli eventi On Before Keystroke e On After Keystroke.
Il metodo risultante, prendendo come parametri il puntatore alla variabile e il numero di caratteri consentiti, potrebbe avere questa forma:
Case of :(Form event=On Before Keystroke)
VecchiaVariabile_t:=Get edited text `il testo prima dell'inserimento
:(Form event=On After Keystroke)
If (Keystroke#Char(Backspace Key)) `escludo la cancellazione
$attuale_t:=Get edited text
If (Length($attuale_t)>$2)
$1->:=VecchiaVariabile_t
BEEP
End if End ifEnd case
Inviato da: PierPaolo Sichera |
|
Visite: 15444 |
Se accedi con utente e password, puoi aggiungere dei commenti.