edit et caractères

Version imprimable

13/02/2006, 12h05
faenor

edit et caractères

Bonjour,

J'ai un tout petit problème dans mon programme de tutoriel

Il s'agit de rentrer dans un edit des lettres et puis avoir le même texte qui s'affiche en simultané dans un autre edit.
J'ai réussi à le faire avec des chiffres mais ici je ne sais pas comment et en quoi convertir mes entrées pour que ça reste des lettres...

merci :wink:
13/02/2006, 12h08
HumanTool

salut,
regarde dans l'événement KeyPress de ton TEdit1 pour concaténer à la propriété Text de ton TEdit2, l'événement te rend un Char...
13/02/2006, 14h01
faenor

ok mais comment tu fais pour concaténer le keypress à la propriété text de l'édit2 ?

Salut, une tite idée au passage. Un truc de ce genre là, ça ne marche pas ? :
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key in ['A'..'Z','a'..'z','0'..'9'] then begin Edit1.Text := Edit1.Text + key; Edit2.Text := Edit2.Text + key; key := #0; end; end;
En affectant cette procedure au OnkeyPress de l'edit1 et de l'edit2 :wink:

(A améliorer bien sur)

ou meme un truc comme ça :
Code:

1 2 3 4 5 procedure TForm1.Edit1Change(Sender: TObject); begin Edit2.Text := Edit1.Text; end;

Code:

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['A'..'Z','a'..'z','0'..'9',#8] then
  begin
    Edit1.Text := Edit1.Text + key;
    Edit2.Text := Edit2.Text + key;
    key := #0;
  end;
end;

il serait bien de rajouter #8 qui permet l'utilisation du backspace (delete du caractère avant le curseur)

13/02/2006, 16h58
Guile

Tout a fait Malatar, c'est à ça que je pensais dans le (A améliorer bien sur) :wink: comme pour les différents caractères de ponctuation qu'il veut accepter.
Il faut aussi gérer la position du curseur parce que si l'on revient sur ce qui a déjà été ecrit, ça ne marche plus du tout.
Le OnChange est meilleur en fait :wink:
13/02/2006, 22h13
faenor

ok merci pour vos réponses ça marche à peu pres, j'ai rajouté aussi la touche space.
Par contre le dernier hic, c'est en effet au niveau du curseur qui reste toujours en début de l'edit puis la touche backspace qui ne fonctionne pas correctement elle me donne des barres noires.....

Code:

1
2
3
4
5
6
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit2.Text := Edit1.Text;
  Edit2.SelStart := Edit1.SelStart;
  Edit2.SelLength := Edit1.SelLength;
end;

Cela convient ?

Citation:

Envoyé par faenor

ok merci pour vos réponses ça marche à peu pres, j'ai rajouté aussi la touche space.
Par contre le dernier hic, c'est en effet au niveau du curseur qui reste toujours en début de l'edit puis la touche backspace qui ne fonctionne pas correctement elle me donne des barres noires.....
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key not in ['A'..'Z','a'..'z','0'..'9',#8] then key := #0; end; procedure TForm1.Edit1Change(Sender: TObject); begin Edit2.text := Edit1.text; end;
Ca passera mieux comme ca

14/02/2006, 21h22
faenor

ta derniere solution ne marche pas malatar. je sais pourquai mais ça me donne une erreur de compilation avec des ";"
l'idée de faire "edit2.text := edit1.text" n'est pas possible je pense.....

pour neilbgr, c'est comme avant : des barres noires.....
14/02/2006, 22h16
neilbgr

Il faut remplacer la ligne par :

Code:

if not (key in ['A'..'Z','a'..'z','0'..'9',#8]) then
15/02/2006, 00h32
edam

et char #32??
15/02/2006, 10h59
Rayek

Citation:

Envoyé par neilbgr

Il faut remplacer la ligne par :

Code:

if not (key in ['A'..'Z','a'..'z','0'..'9',#8]) then

oups :lol:

Citation:

Envoyé par faenor

ta derniere solution ne marche pas malatar. je sais pourquai mais ça me donne une erreur de compilation avec des ";"
l'idée de faire "edit2.text := edit1.text" n'est pas possible je pense.....

pour neilbgr, c'est comme avant : des barres noires.....

Si si ca fonctionne tres bien je l'utilise trés souvent.
et comme Edam l'a dit , faudrait peut être rajouter le #32 (l'espace).
15/02/2006, 16h42
faenor

ça marche tres bien merci :D
Je vais maintenant suivre la suite du tutorial de JC Armici......