Как правильно обработать OnKeyDown?

← →
Morthan (2002-12-05 08:21) [0]

Тут у меня возник очень ламерский вопрос. Хочу, чтобы при нажатии на любую клавишу, издавался MessageBeep, просто для проверки. Делаю так:
procedure FormKeyDown(Sender : PControl; var Key : Longint; Shift : DWORD); begin MessageBeep(0); end;

потом в программе вешаю это дело на Form.OnKeyDown:
Form := NewForm(Applet, "Form 1"); Form.OnKeyDown := TOnKey(MakeMethod(nil, @FormKeyDown));
Оно после нажатия пищит, а потом выдает Runtime error 255. В чем здесь может быть дело?

← →
Alexander (2002-12-05 21:39) [1]

Ну зачем что-то изобретать.
Если не хочется по какой-то причине использовать MCK (хотя я такой причины не понимаю - может объяснишь?), то хоть поставь её для создания рабочиъ примеров и таких вопросов возникать не будет!

Просто посмотри, как это там делается - универсальный способ решения вопросов.

← →
Morthan (2002-12-06 07:44) [2]

Да я, в принципе, MCK уже поставил, только оно ничего не компилирует... все жалуется на отсутствие каких-то модулей. То ли Дельфя кривые, то ли еще чего-то... А сносить Дельфя и ставить все заново не хочется: KOL-то работает! Вот и приходится извращаться. Да и интересно стало, чем же OnKeyDown от прочих событий отличается?

← →
Gandalf (2002-12-06 09:39) [3]

> Да и интересно стало, чем же OnKeyDown от прочих событий
> отличается?

Прнципиально - Ничем.

На дверях форума должно быть надпись - "Отбросив все надежды, сначала прочти FAQ, особенно последний вопрос". Это - намек.

Как правильно обработать OnKeyDown? Найти похожие ветки