Звук в 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);

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