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