Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Звук в ListView при нажатии Alt+Enter   Найти похожие ветки 

 
Guest_Bob   (2004-03-16 17:38) [0]

Приветствую!
Как сделать, чтобы при нажатии Alt+Enter в ListView не было звука "динь". Уловка if key=13 then key=0 не помогает!


 
alless ©   (2004-03-16 18:28) [1]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin

if  (ssalt in Shift) and (Key=VK_RETURN) then
Key:=#0;

end;


 
Guest_Bob   (2004-03-16 18:36) [2]

>>if  (ssalt in Shift) and (Key=VK_RETURN) then
>>Key:=#0;
Не работает :(


 
alless ©   (2004-03-16 18:40) [3]

sorry: Key:=0


 
alless ©   (2004-03-16 18:41) [4]

sorry: Key:=0


 
alless ©   (2004-03-16 18:42) [5]

ia dumaiu esli poproboval s formo-i to postavil Form1.KeyPreview:=true;


 
Guest_Bob   (2004-03-16 19:17) [6]

Ясень пень что key:=0 и с KeyPreview я тоже эксперементы ставил.
Не работает :(


 
alless ©   (2004-03-16 19:36) [7]

poprobui:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
SetBeepingMode(0);
if  (ssalt in Shift) and (Key=VK_RETURN) then
Key:=#0;
SetBeepingMode(1);

end;


 
Guest_Bob   (2004-03-17 01:13) [8]

Такое не будет работать по определению, так ты меняешь значение между операциями примваивания, хотя идею тв неплохую подсказал.
Попробую поискать аналог SetBeepingMode. Аналог - так как в стандартной поставки XP библиотеки с этой функцияей нет, а такое не катит :(


 
Mim   (2004-03-17 07:38) [9]

заменить оконную процедуру окна и обрабатывать
alt+enter в ней до того как сообщение нажатия клавиш прийдет к
стандартной процедуре

... wndproc ...; override;

или

setwindowlong + gwl_wndproc


 
Guest_Bob   (2004-03-17 21:09) [10]

Неужели нет более красивого решения чем замена окконой процедуры ?


 
Mim   (2004-03-21 12:50) [11]

ИМХО замена оконной процедуры более красивое решение нежели игра с SetBeepingMode(0);



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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.045 c
7-1075632818
Suport1
2004-02-01 13:53
2004.04.11
Как перехватить нажатие с клавиатуры ....


14-1079109049
Soft
2004-03-12 19:30
2004.04.11
Тотальное средство борьбы со СПАМОМ!!!


14-1079191766
Ig
2004-03-13 18:29
2004.04.11
Как в ListView добавить


3-1079461967
ginger
2004-03-16 21:32
2004.04.11
IB и SQL Server


8-1076729858
Bonial
2004-02-14 06:37
2004.04.11
Как можно узнать регион экрана, который изменился?





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