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

Как правильно обработать 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, особенно последний вопрос". Это - намек.

---

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

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



Память: 0.45 MB
Время: 0.009 c