При нажатии Enter в DBEdit динамик издает Beep (звук). Как этот звук отключить ?

@AlexV0 · Регистрация: 08.08.2007

Author24 — интернет-сервис помощи студентам

@shurhend · 15.07.2008, 12:31

Delphi

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
    if Key = #13 then Key := #0;
end;

@greenapple · 16.07.2008, 14:33

Да, но как же сделать тогда так, чтобы на ENTER можно было нажать!?

@shurhend · 16.07.2008, 23:08

А в чем проблема?.. делай проверку условия и нажимай себе сколько хочешь

Delphi

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key = #13 then 
        begin 
          key := #0; 
          ShowMessage('Key Enter  pressed'); 
        end;
end;

@greenapple · 17.07.2008, 12:17

Не, а приколи если надо так сделать!
if Key = #13 THEN Button1Click;

Короче, чтобы и enter работал, и звука не было!

@AlexV0 0 / 0 / 0 Регистрация: 08.08.2007 Сообщений: 184
		1
	При нажатии Enter в DBEdit динамик издает Beep (звук). Как этот звук отключить ? 29.05.2008, 12:37. Показов 3402. Ответов 4 Метки нет (Все метки) При нажатии Enter в DBEdit динамик издает Beep (звук). Как этот звук отключить ? 0

@greenapple 0 / 0 / 0 Регистрация: 15.06.2008 Сообщений: 20
	16.07.2008, 14:33	3
	Да, но как же сделать тогда так, чтобы на ENTER можно было нажать!? 0

@greenapple 0 / 0 / 0 Регистрация: 15.06.2008 Сообщений: 20
	17.07.2008, 12:17	5
	Не, а приколи если надо так сделать! if Key = #13 THEN Button1Click; Короче, чтобы и enter работал, и звука не было! 0