Скачать: CL | DM;

Как сделать чтобы 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 сразу запищал. Хм, странно...
А чтож тут странного?
Драйвера такие :) или карта звуковая :)

---

← →
Esu ©   (2002-09-25 08:31) [5]

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

---

← →
Александр Спелицин ©   (2002-09-25 11:17) [6]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c