desactiver le bip du teditRésolu

Question

bonjour


procedure TForm1.EditInKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = 13)
  then
  BitBtnExeClick(Sender);    // cette procedure !
end;

procedure TForm1.BitBtnExeClick(Sender: TObject);
begin
  if EditIn.Text <> ''
  then
  begin
    MemoOut.Lines.Add(EditIn.Text);
    EditIn.Clear;
  end;
end;


donc, quand jappuie sur "entrer" et que je suis dans le tedit, ca revient a appuyer sur le bouton, seulement, il fait un bip en plus :  dou vient ce bip et comment le desactiver?

et en passant, ca fait longtemps que jai pas vu de delphi, je peux pas appeler lautre procedure sans mettre (sender)?

cs_neko · Accepted Answer

Essais ça:


procedure TForm1.EditInKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) then Begin
    Key := #0;
    BitBtnExeClick(Sender); // cette procedure !
  End;
end;


Attention, il fait le mettre dans l'evennement KeyPress pas KeyDown.

bouh

MoveX · Answer

ok merci

Desactiver le bip du tedit

2 réponses

Votre réponse

Discussions similaires