Как убрать звук при нажатии Enter а в TEdit e.

← →
Darkwing © (2005-08-30 08:42) [0]

Я помню что как-то как, но он все равно брякает

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then DoSomething... Key := 0; end;

← →
злобная танька (2005-08-30 08:45) [1]

OnKeyPressed

← →
Anatoly Podgoretsky © (2005-08-30 09:48) [2]

Сделай кнопку по умолчанию, будет профессионально.

По-моему, это было в FAQ. Но, вот решение:

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

Как убрать звук при нажатии Enter а в TEdit e. Найти похожие ветки