Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.037 c