Discussion :

[bullrot]

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 :

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

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

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

[ero-sennin]

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 :

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 :

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
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à

[bullrot]

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

Code :

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

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

Ca marche super je savais pas que cette fonction fesait ca

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

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

[ero-sennin]

Re,

Petite erreur de ma part :

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

[bullrot]

Pas de prob pour l'erreur ca arrive vite

Franchement c'est super