Текущий архив: 2005.02.06;
Скачать: 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 вся ветка
Текущий архив: 2005.02.06;
Скачать: CL | DM;
Память: 0.5 MB
Время: 0.046 c
