Discussion :

[rhirsch]

Bonjour,

Pour protéger la saisie d'un TEdit j'utilise OnKeyPress. J'interdis par exemple les caractères accentués. Ceci est efficace sur la saisie par clavier (forcément!). Cependant, comment faire pour le copier/coller ou même la saisie sur une tablette pc via la reconnaissance d'écriture (écriture à main levée)?

Il parait qu'en java cela est possible mais cela me fait une belle jambe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
public void insertString(int offs, String str, AttributeSet a) throws BadLocationException{          
        //Ne pas autoriser les majuscules
        //str = str.toLowerCase();
 
        //Contrôle répétitions de lettres 
        String txt = getText(0, getLength());
        if(! repetition(str.charAt(0), offs, txt))
            super.insertString (offs, str, getStyle ("styleNormal"));
 
    }

des idées? A part bricoler/galérer avec onChange...

D'avance merci.

[philnext]

Ton idée de travailler avec le OnChange est la bonne. Je ne vois pas pkoi ce serait la galère.

[BuzzLeclaire]

@Salut,

Tu peux aussi faire ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  if not CharInSet(Key, ['0','1','2','3','4','5','6','7','8','9',
  'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',
  'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z',  Chr(VK_BACK)])
  then Key := #0;

[rhirsch]

@philnext car le texte a déjà été changé et qu'il n'est pas certain que les changements "ne se voient pas" à l'écran

un beforeOnChange aurait été mieux mais ça n'existe pas mais si n'y a vraiment aucune autre solution ce qui m'étonne j'utiliserai effectivement onChange

@BuzzLeClaire cela ne s'applique qu'à l'évènement clavier non?

[Charly910]

Bonjour,

tu dois avoir de très bons yeux ou un micro très lent

car en faisant cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Edit1Change(Sender: TObject);
var
  Taille: Byte;
  Chaine : String ;
  i : Integer ;
  cc  : Char ;
  BB : set of Char ;
begin
  BB :=  [' ','0','1','2','3','4','5','6','7','8','9',
  'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',
  'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V',
  'W','X','Y','Z',  Chr(VK_BACK)] ;
  Taille := Edit1.GetTextLen ;
  Chaine  := Edit1.text ;
  For i := Taille Downto 1 do
     Begin
        cc := Chaine[i] ;
        If not (cc in BB)    Then delete(Chaine,i, 1 ) ;
     End ;
  Edit1.text := Chaine ;
  Edit1.SelStart := Edit1.GetTextLen ;
end;

moi je ne vois pas grand chose ni en copier/coller, ni en frappe directe

Cordialement

Charly

[philnext]

Je confirme pour le OnChange : je l'utilise pour ce genre de choses et on ne remarque rien à l'écran.

[rhirsch]

@charly910 je porte de bonnes lunettes c'est pour ça

plus sérieusement merci ça a l'air de bien fonctionner même si je dois encore vérifier avec la tablet PC.

au début, n'ayant pas penser aux tablets PC (et vu que j'interdisais le C/C), j'utilisais ce qui était dans la FAQ http://delphi.developpez.com/faq/?pa...sieenmajuscule. De plus, quand je pensais que ça allait être pénible avec onChange, c'est parce que je pensais que le fait de modifier la valeur text allait recréer un appel onChange.

merci @ceux qui ont répondus!