| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

NeedToFly ©   (2002-09-24 21:28:00) 

---

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

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;

---

Esu   (2002-09-25 08:31:00) [2]

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

---

Lego   (2002-09-25 06:06:00) [3]

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

---

NeedToFly   (2002-09-24 23:12:00) [4]

Senks

---

Kibitzer   (2002-09-24 22:38:00) [5]

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

procedureTForm1.Edit1KeyPress(Sender: TObject; varKey: Char);
begin
ifKey = #13 thenKey := #0
end;

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

---

Shadow   (2002-09-24 21:36:00) [6]

Вроде в FAQ есть

---

Наверх