Как убрать MessageBeep?

← →
TUserClass (2008-06-11 16:03) [0]

Добрый всем вечер!

Встала проблема появления "писка" (не поймите это слово не правильно) во время нажатия в Edit"е клавиши Enter. Вот есть код.

procedure SearchTextOnKeyDown (Sender: TObject; var Key: Word; Shift: TShiftState); begin If Key = 13 then begin SearchButton.OnClick (Sender); end; end;

Кнопка SearchButton срабатывает, но при этом раздается писк. Как вылечить?

← →
Игорь Шевченко © (2008-06-11 16:09) [1]

If Key = 13 then begin
SearchButton.OnClick (Sender);
Key := 0;
end;

← →
TUserClass (2008-06-11 16:14) [2]

> Игорь Шевченко © (11.06.08 16:09) [1]
> If Key = 13 then begin
> SearchButton.OnClick (Sender);
> Key := 0;
> end;

Так не сработало....но поменяв событие и добавив Key := #0; все получилось

procedure SearchTextOnKeyPress (Sender: TObject; var Key: Char); begin If Key = #13 then begin SearchButton.OnClick (Sender); Key := #0; end; end;

Спасибо, Игорь Шевченко ... :)

Как убрать MessageBeep? Найти похожие ветки