Discussion :

[Henri_13]

Bonjour,

Afin d'eviter d'utiliser un bouton pour envoyer du texte j'ai inserer mon code dans un nouvelle procedure EnvoieMessage j'ai associé l'évenement OnKeyPress dans mon EditText .Mon pb est que celà fontionne très bien mis à part qu'à chaque pression de la touche entrée, j'entend un son, comme si il y avait un erreur : alors que lorsque je procede avec un bouton tout fontionne correctement

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
Procedure EnvoiMessage;
var
Texte : String;
begin
Texte := (Form1.Edit1.Text);
  If (Rich1 <> 0) Then
   begin
    SendMessage(Rich1, WM_SETTEXT, 0, THandle(texte) );
    SendMessage(Rich1, WM_CHAR, VK_RETURN, 0);
    Form1.Edit1.Clear;
  end
  else
   begin
  Form1.Memo1.Text := 'Désolé erreur !';
  Form1.Edit1.Clear;
   end;
end;

Code :

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

1
2
3
4
5
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = chr(vk_Return)) then
EnvoiMessage;
end;

Merci Henri

[Lung]

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (Key = chr(vk_Return)) then
   begin
      EnvoiMessage;
      Key := #0;     <---------
   end;
end;

[Henri_13]

Merci celà fonctionne

Comment se fait il qu'en ajoutant

Code :

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

Key := #0;

celà enleve le bruit ?

Merci Henri

[anapurna]

salut

Normal il concidere que c'est un caractere autorisé
donc pas d'erreur ce qui implique pas de beep

@+ Phil

[Henri_13]

Merci anapurna

Merci Henri