Главная страница
    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.014 c
6-66334
Lamok
2001-10-24 17:09
2002.01.21
Tcp/ip


1-66302
VlNek
2002-01-04 18:00
2002.01.21
Конвертирование bmp в jpeg


1-66233
Анатолий
2002-01-01 03:52
2002.01.21
Сhart


1-66307
Socol
2002-01-01 12:22
2002.01.21
Открытие файла


1-66275
well
2002-01-04 11:07
2002.01.21
TreeViev





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский