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

раздражающие звуки   Найти похожие ветки 

← →
ninja ©   (2005-01-22 20:14) [0]

Привет.
Как сделать так, чтобы TEdit не издавал звуков при нажатии некоторых кнопок на клавиатуре (enter например)?

---

← →
Knight ©   (2005-01-22 20:23) [1]

Панель управления - Звук - Звуковая схема - нет звуков... %)

---

← →
uny ©   (2005-01-22 20:26) [2]

к [1] ещё - используя любой твикер снять галочку "Beep on errors"

---

← →
aus   (2005-01-22 20:38) [3]

Не проверял, но попробуй в OnKeyDown
if key = 13 then key := 0;

---

← →
Leonid Troyanovsky ©   (2005-01-22 20:41) [4]

> aus   (22.01.05 20:38) [3]
> Не проверял, но попробуй в OnKeyDown


OnKeyPress.

--
Regards, LVT.

---

← →
Knight ©   (2005-01-22 20:44) [5]

> [3] aus   (22.01.05 20:38)
> Не проверял, но попробуй в OnKeyDown
> if key = 13 then key := 0;

onKeyPress...
if Key=#13 then Key:=#0;

нет символа, нет ошибки... :)

---

← →
TUser ©   (2005-01-22 20:56) [6]

Если пользователь настроил себе такую зв. схему - значит так ему и надо.

---

← →
Knight ©   (2005-01-22 20:57) [7]

> [6] TUser ©   (22.01.05 20:56)
> Если пользователь настроил себе такую зв. схему - значит
> так ему и надо.

Вот и я о чём... поделом ему... %)

---

← →
ninja ©   (2005-01-22 20:59) [8]

Спасибо, реальный метод!
можно все клавиши забить.. :)

---

← →
Knight ©   (2005-01-22 21:01) [9]

> [8] ninja ©   (22.01.05 20:59)
> Спасибо, реальный метод!
> можно все клавиши забить.. :)

Все??? Может тогда проще TEdit удалить? %)

---

← →
ninja ©   (2005-01-22 21:06) [10]

> Knight ©   (22.01.05 21:01) [9]

ну можно и удалить конечно :)

у меня ещё один вопрос:
Я заблокировал Enter, потом попробовал Delete. Через keypressed не получилось, но получилось через keydown. Почему??

---

← →
begin...end ©   (2005-01-22 21:08) [11]

> [10] ninja ©   (22.01.05 21:06)

> Через keypressed не получилось, но получилось через keydown.
> Почему??

Потому что OnKeyPress предназначен для обработки нажатия только алфавитно-цифровых клавиш.

---

← →
TUser ©   (2005-01-22 21:11) [12]

> Потому что OnKeyPress предназначен для обработки нажатия
> только алфавитно-цифровых клавиш
Да ладно тебе - тринадцатый символ он ловит

---

← →
begin...end ©   (2005-01-22 21:15) [13]

> [12] TUser ©   (22.01.05 21:11)

Потому и ловит, что это символ.

---

← →
Knight ©   (2005-01-22 21:41) [14]

А вообще, если звуковая схема сделана... значит она кому-то нужна... не ты делал не тебе и править =)

---

← →
ninja ©   (2005-01-22 21:48) [15]

> Knight ©   (22.01.05 21:41) [14]


та не...
он бипером пикает, а не схемой. точнее, сейчас уже не пикает :)

---

← →
Knight ©   (2005-01-22 21:50) [16]

> [15] ninja ©   (22.01.05 21:48)
> он бипером пикает, а не схемой. точнее, сейчас уже не пикает
> :)

Раз бипер пикает, значит он тоже кому-то нужен... :)))

---

← →
Вариант ©   (2005-01-22 22:34) [17]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then // #13 = Enter
 begin
    key := #0;
    // Код
 end;
end;

//Или иначе
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Mgs: TMsg;
begin
  if Key = VK_RETURN then
    PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
end;

---

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

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



Память: 0.48 MB
Время: 0.025 c