memo limiter 1 seule lignes

j'utilise un memo pour la saisie car je peux centrer le texte et non sur un TEdit

Y a -t-il moyen de le bloquer a une seule ligne car quand j'appuye sur ENTER il passe la ligne... c'est un peu embetant car c'est une simple saisie.


Merci


2eme question sur mon Memo :

J'utilise la fonction de la FAQ.

Code:

---

1 2 3

if ((Key < '0' || Key >'9') && Key != 8 && (Key != DecimalSeparator || ((TEdit *)Sender)->Text.Pos(DecimalSeparator)!=0)) Key = NULL;

---

car dans ce memo je dois taper un prix mais je voudrais limiter ce prix a 2 chiffres apres la virgule. Coment puis je faire cela ?

Merci

Je sais pas pourquoi tu utilise memo pour un simple nombre réel.:(
Tu utilise le controle Edit et tu met Center dans la propriété Align.

Citation:

---

Envoyé par Socrat

Je sais pas pourquoi tu utilise memo pour un simple nombre réel.:(
Tu utilise le controle Edit et tu met Center dans la propriété Align.

---

Le TEdit ne permet pas d'aligner le texte! Donc l'idée du Mémo est certes la solution la plus simple ...

Pour répondre au question de bullrot :

Citation:

---

Y a -t-il moyen de le bloquer a une seule ligne car quand j'appuye sur ENTER il passe la ligne... c'est un peu embetant car c'est une simple saisie.

---

Dans les propriétés du Memo, mettre la propriété WantReturns à false.

Ensuite, pour la saisie de nombre, voici ce que je propose :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key) { // Si on appuie sur le '.' du pavé numérique, on le remplace par le DecimalSeparator if (Key == '.') Key = DecimalSeparator;   if ((Key < '0' || Key >'9') && Key != 8 && (Key != DecimalSeparator || ((TMemo *)Sender)->Text.Pos(DecimalSeparator)!=0)) { Key=0; } else { if ( Memo1->Text.Pos(DecimalSeparator) && Memo1->Text.Length()-Memo1->Text.Pos(DecimalSeparator)-1>2 && Key!= VK_BACK) { Key=0; } } }

---

Voilà ;)

Oui voila exactement on ne peut pas mettre le texte au centre dans un Tedit.

Code:

---

Dans les propriétés du Memo, mettre la propriété WantReturns à false.

---

Ca marche super je savais pas que cette fonction fesait ca :king:

Ensuite j'ai essayer ton code : sauf que je l'ai mis dans un Edit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

void __fastcall TNewProduits::Edit4KeyPress(TObject *Sender, char &Key) { // Si on appuie sur le '.' du pavé numérique, on le remplace par le DecimalSeparator if (Key == '.') Key = DecimalSeparator;   if ((Key < '0' || Key >'9') && Key != 8 && (Key != DecimalSeparator || ((TEdit *)Sender)->Text.Pos(DecimalSeparator)!=0)) { Key=0; } else { if ( Edit4->Text.Pos(DecimalSeparator) && Edit4->Text.Length()-Edit4->Text.Pos(DecimalSeparator)-1>2 && Key!= VK_BACK) { Key=0; } } }

---

Le point est bien remplacer par une virgule et une seule virgule est acceptée mais il ne limite pas le nombre de chiffre apres la virgule a 2 mais a 4...:aie:

Re,

Petite erreur de ma part :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

void __fastcall TForm1::Edit4KeyPress(TObject *Sender, char &Key) { // Si on appuie sur le '.' du pavé numérique, on le remplace par le DecimalSeparator if (Key == '.') Key = DecimalSeparator; if ((Key < '0' || Key >'9') && Key != 8 && (Key != DecimalSeparator || ((TEdit *)Sender)->Text.Pos(DecimalSeparator)!=0)) { Key=0; } else { if ( Edit4->Text.Pos(DecimalSeparator) && Edit4->Text.Length()-Edit4->Text.Pos(DecimalSeparator)+1>2 && Key!= VK_BACK) { Key=0; } } }

---

Voilou ;)

Pas de prob pour l'erreur ca arrive vite ;)

Franchement :merci: c'est super :mouarf: