Discussion :

[faenor]

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

[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...

[faenor]

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

[Guile]

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

Code :

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

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

(A améliorer bien sur)

ou meme un truc comme ça :

Code :

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

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

[Rayek]

Code :

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

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)

[Guile]

Tout a fait Malatar, c'est à ça que je pensais dans le (A améliorer bien sur) 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

[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.....

[neilbgr]

Code :

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

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 ?

[Rayek]

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 :

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

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

[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.....

[neilbgr]

Il faut remplacer la ligne par :

Code :

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

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

[edam]

et char #32??

[Rayek]

Il faut remplacer la ligne par :

Code :

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

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

oups

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).

[faenor]

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