Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

По(ту)сторонние звуки 


Константин   (2001-11-17 21:50) [0]

Почему такое происходит: выполнение такого кода

procedure TSomeForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = vk_Return then
begin
SendMessage(SomeForm.Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;

работает правильно (переходит на следующий контрол), но вызывает стандартный звук системы типа beep или ding. В Win2k - точно, в остальных не пробовал. Что ей не нравится?



Anatoly Podgoretsky   (2001-11-17 23:11) [1]

Ей не нравится vk_Return



Меня здесь нет и никогда не было   (2001-11-19 09:28) [2]

key:=0



Константин   (2001-11-19 23:07) [3]

Я не понял, что именно нужно сделать. И самое главное, почему она пищит? По идее нужно сделать так, чтобы эта клавиша вроде как бы и не нажималась?
Key:=0 - это же локальная переменная, все равно она уничножается при выходе из процедуры.



Anatoly Podgoretsky   (2001-11-19 23:27) [4]

Key не локальная переменная, а параметр передаваемый по ссылке



Добавлю   (2001-11-20 04:57) [5]

, который в последствии проверяется другой процедурой.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
1-66243           Mis                   2002-01-02 13:41  2002.01.21  
Как сделать паузу.


6-66328           evgen32               2001-10-29 08:56  2002.01.21  
дата и время


7-66383           Dmitry V. Averuanov   2001-10-04 11:35  2002.01.21  
Не удается передать Tbitmap в качестве параметра...


14-66337          McSimm                2001-11-23 13:15  2002.01.21  
Модератору и тем, кому нечего делать


3-66205           fishka                2001-12-18 12:10  2002.01.21  
Поле типа Identity - как задать значение, с которого начинать нумерацию?