B
Bimboo
Всем привет!
Пишу прогу, где надо вводить данные в поле Edit, и при нажатии Enter ввод заканчиваться и начинается обработка.
Вот код
[codebox]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
... {обработка}
end;[/codebox]
Все правильно работает, только есть проблема, при нажатии Enter, Edit издает специфический звук!!!
Подскажите, знает кто-нидь как этот звук убрать или поменять на свой? Желательно с кодами
Пишу прогу, где надо вводить данные в поле Edit, и при нажатии Enter ввод заканчиваться и начинается обработка.
Вот код
[codebox]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
... {обработка}
end;[/codebox]
Все правильно работает, только есть проблема, при нажатии Enter, Edit издает специфический звук!!!
Подскажите, знает кто-нидь как этот звук убрать или поменять на свой? Желательно с кодами