Ненужный звук при нажатии Enter в поле TEdit

← →
kuku (2013-07-19 15:31) [0]

Граждане профи, объясните пожалуйста, почему при нажатии Enter в поле TEdit или TLabeledEdit винда выдает нежелательный звук, вроде как ошибочное действие, независимо от наличия обработчика нажатия клавиши. Можно ли с этим бороться и как?
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) LabeledEdit1: TLabeledEdit; Edit1: TEdit; Label1: TLabel; procedure LabeledEdit1Change(Sender: TObject); procedure LabeledEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.LabeledEdit1Change(Sender: TObject); begin Label1.Caption:= "URA"; end; procedure TForm1.LabeledEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Label1.Caption:= "XREN"; end; end.

← →
sniknik © (2013-07-19 15:42) [1]

попробуй сделать Key:= 0; в онклик.

← →
Anatoly Podgoretsky © (2013-07-19 16:39) [2]

Звук очень желательный, это обратная связь о нажатие неположенных клавиш. Конечно можешь это задавить, но это вредно.

← →
kuku (2013-07-19 17:21) [3]

"это обратная связь о нажатие неположенных клавиш. Конечно можешь это задавить, но это вредно."
Почему не положенных? Если, например, мне надо из этого поля взять значение и что-либо с ним сделать? Логично, набрав в поле ввода нужное, нажать Enter. Но звук раздражает. Можно ли сделать Enter положенной клавишей?

← →
Anatoly Podgoretsky © (2013-07-19 17:37) [4]

А что тебе sniknik ответил, разве не это

← →
kuku (2013-07-19 17:51) [5]

> попробуй сделать Key:= 0; в онклик.

> А что тебе sniknik ответил, разве не это

В OnClick параметр Sender, а параметра Key нет. Нельзя ли поподробнее?

← →
Dimka Maslov © (2013-07-19 17:52) [6]

OnKeyPress

← →
kuku (2013-07-19 18:09) [7]

> Dimka Maslov © (19.07.13 17:52) [6]
>
> OnKeyPress

Ага, только редактировать ничего не получится, если в
> OnKeyPress

я присвою Key:= 0;

← →
Германн © (2013-07-19 18:15) [8]

Так ведь не каждому Кею присваивать 0 нужно, а только тому у которого нет своей Герды. :)

Бедный, мой бедный, Кей.
Кто сделал тебя нулём?
Я снова отправлюсь в вей,
и вместе мы заживём.

> я присвою Key:= 0;

Не присвоишь, тип другой

← →
kuku (2013-07-20 11:33) [11]

> Не присвоишь, тип другой

Конечно не в лоб, а с преобразованием

if Key = #13 then Key := #0

Ненужный звук при нажатии Enter в поле TEdit Найти похожие ветки