| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обработка KeyDown, KeyUp [Delphi, Windows]

kvv1974 ©   (2002-10-04 09:02:00) 

Здравствуйте. Почему при нажатии на любуюклавишу даже при пустом обработчике приложение слетает с ошибкой 216. Код ниже:

uses windows,kol;
var fMain: pControl;
procedure MyOnKeyDown(Sender:PControl;var Key:Longint;Shift: DWORD);
begin
if Key=VK_ESCAPE then Applet.Close;
end;
begin
Applet := NewApplet("test");
fMain := NewForm(Applet,"Test KeyDown");
fMain.OnKeyDown := TOnKey(MakeMethod(nil,@MyOnKeyDown));
Run(fMain);
end.

Обработчики OnDraw,OnMouseXXX,созданные аналогичным образом работают корректно. Что я упустил?
Спасибо.

---

Kirill   (2002-10-04 11:33:00) [1]

> procedure MyOnKeyDown(Sender:PControl;var Key:Longint;Shift:
> DWORD);

Добавь
procedure MyOnKeyDown( Dummy: Pointer;Sender:PObj;var Key:Longint;Shift:DWORD);

---

Наверх