Как сделать чтобы TEdit не пищал при нажатии на Enter?

← →
NeedToFly (2002-09-24 21:28) [0]

← →
Shadow © (2002-09-24 21:36) [1]

Вроде в FAQ есть

← →
Kibitzer © (2002-09-24 22:38) [2]

Например так:

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

ps. Кстати у меня только что не пищал и без этого кода, что меня сильно удивило. Закрыл WinAmp сразу запищал. Хм, странно...

← →
NeedToFly (2002-09-24 23:12) [3]

Senks

← →
Lego © (2002-09-25 06:06) [4]

Кстати у меня только что не пищал и без этого кода, что меня сильно удивило. Закрыл WinAmp сразу запищал. Хм, странно...
А чтож тут странного?
Драйвера такие :) или карта звуковая :)

Я вообще все звуки виндовые и аськовые поотключал. У меня-то пищит и когда винамп играет :(

procedure TForm1.Edit1KeyDown(var Key: Word; Shift: TShiftState);
var
M: TMsg;
begin
inherited KeyDown(Key, Shift);

if Key = 13 {VK_ENTER} then
begin
while PeekMessage(M, Edit1.Handle, WM_SYSCHAR, WM_SYSCHAR, PM_REMOVE) do
begin
end;
end;
end;

Как сделать чтобы TEdit не пищал при нажатии на Enter? Найти похожие ветки