раздражающие звуки

← →
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 предназначен для обработки нажатия
> только алфавитно-цифровых клавиш
Да ладно тебе - тринадцатый символ он ловит

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

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

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

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;

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