Discussion :

[David]

Bonjour à tous,

Je me heurte à un problème incompréhensible :

A l'execution, lorsque j'appuie sur entrée dans un TEdit (avec ou sans valeur saisie), un bip survient alors qu'il n'y a pas de code (beep) le provoquant.

En tabulant d'un edit à l'autre, pas de bip.

Comment le supprimer :

est-ce un propriété windows à modifier ?

merci pour votre aide

[Thierry G.]

salut,

il me semble qu'il s'agit du fonctionnement normal d'Tedit, de plus la touche Entree ne permet pas de passer au composant suivant.
a moins de faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key = #13 then 
  begin 
    Key := #0; 
    { check if SHIFT - Key is pressed } 
    if GetKeyState(VK_Shift) and $8000 <> 0 then 
      PostMessage(Handle, WM_NEXTDLGCTL, 1, 0) 
    else 
      PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); 
  end; 
end;

sinon pour simplement ne plus avoir le beep

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 = #13 then
    Key := #0;
end;

[David]

Key := #0 résoud tout à fait le problème

Je te remercie