Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 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]

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



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

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

Наверх





Память: 0.55 MB
Время: 0.023 c
7-66382
Dmitri
2001-10-02 09:03
2002.01.21
Попробуем запрограммировать сканер


6-66318
lun
2001-10-26 09:17
2002.01.21
Поделитесь исходниками прокси! пожалуйста!


6-66317
Leviathan
2001-10-26 17:17
2002.01.21
Файл через TCP/IP !


7-66380
Lizard
2001-09-30 14:03
2002.01.21
Как к письму приаттачить не один, а несколько файлов ?


14-66345
fliz
2001-11-19 18:20
2002.01.21
Намыльте мне книгу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский