Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Обработка KeyDown, KeyUp   Найти похожие ветки 

 
kvv1974   (2002-10-04 09:02) [0]

Здравствуйте. Почему при нажатии на любую клавишу даже при пустом обработчике приложение слетает с ошибкой 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) [1]


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

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



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
14-84652
bearoman
2003-06-10 12:11
2003.06.26
DELPHI 7 стоит ли переходить на него.


14-84563
Navi
2003-06-07 07:20
2003.06.26
Психологический тест


3-83944
angelcom
2003-06-01 03:33
2003.06.26
вопрос о DBGrid


1-84396
Charly
2003-06-09 14:42
2003.06.26
Мышь - управление с клавиатуры


3-83929
AlexA
2003-05-30 12:06
2003.06.26
Как программным способом изменить ширину MEMO в FastReporte.