Discussion :

[LibrairieSI]

Dans un RichEdit, j'ai besoin de faire un retour de chariot automatique après 40 caractères, j'utilise ce code, probleme après l'envoie du VK_RETURN, j'ai des retours de chariot à l'infinie

Comment corriger le bug ?

Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
     //Pour trouver le nombre de caractère sur la ligne
     longLigne = (RichEdit1->Perform(EM_LINELENGTH, (LPARAM) (DWORD) numCaractere, 0));
     if (longLigne > 40)
     {
          Key = VK_RETURN;
 
     }
}

[.:morgoth:.]

Tu peux tenter quelque chose comme ca :

Code :

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

1
2
3
4
5
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
  int n=(RichEdit1->Perform(EM_LINELENGTH, (LPARAM) (DWORD) numCaractere, 0)); 
  if (n>40) RichEdit1->Text=RichEdit1->Text+"\r\n";
}

Sinon y'a aussi une astuce qui consiste à mettre la taille de ton RichEdit pile poil pour contenir 40 caractères et définir la propriété WordWrap=true

A toi de voir

[Troll]

C'est bizarre, j'ai testé ton code, et ça n'a chez moi aucun effet.
La nouvelle valeur affectée à Key dans l'évenement KeyDown
ne modifie pas la frappe. Avec KeyPress c'est mieux!

Ton problème doit avoir une autre origine. Regarde tes évenements.

[.:morgoth:.]

Ouais completement d'accord avec toi Troll.
J'avais meme pas tilté...
C'est bien OnKeyPress qu'il faut utiliser etpas OnkeyDown.

Par contre mon code devrait marcher...

[LibrairieSI]

Mon code fonctionne bien, mais que je fasse \r\n ou Key = VK_RETURN , le problème est après 40 frappes il vais des retour de chariot sans fin..

Je ne veux pas avoir une fenêtre fixe j’aime bien laisser l’utilisateur avec un minimum de contrôle sur l application.

Je vais tester dans OnKeyPress.

Merci.

[LibrairieSI]

Merci,

J'ai trouver, une ligne de code dans RichEdit1Change causer le Bug.

Maintenant ceci est nickel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
     //Pour trouver le numéro de ligne(s) et de caratère(s)
     numLigne = RichEdit1->Perform(EM_EXLINEFROMCHAR, 0, (LPARAM) (DWORD) RichEdit1->SelStart);
     numCaractere = (RichEdit1->SelStart - RichEdit1->Perform(EM_LINEINDEX, (LPARAM) (DWORD) numLigne, 0));
     AnsiString LigneCol(IntToStr(numLigne) + ": " + IntToStr(numCaractere));
     //Form1->StatusBar->Panels->Items[0]->Text = LigneCol;
 
     if (numCaractere > 39)//Maximum de 40 caracteres par ligne
     {
          Key = VK_RETURN;
     }
}

Merci.