Главная страница
    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.013 c
14-66360
Феликс
2001-11-23 13:03
2002.01.21
Жизнь все лучше и лучше?


7-66365
Jazzy$
2001-09-30 19:26
2002.01.21
netUserGetInfo


1-66312
BOOOMER
2002-01-04 17:17
2002.01.21
Actions


14-66354
PEC2
2001-11-26 08:36
2002.01.21
Может кто поможет!


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