KOL onkeydown формы

[Simply-Art]

Как сделать обработку onkeydown формы. Теорию я знаю, и учебники качал, но они ВСЕ написаны с ошибкой. Оставлять только рабочий код или рабочий исходник. На остальные сообщения буду жаловаться админу, т.к. они будут флудом!

[Ring0Sn]

Simply-Art, что то видать нето качал, ничего специфического там нету

program KeyOf;

uses KOL;

var F: PControl;

procedure KeyDown(Dummy : Pointer; Sender: PControl; var Key: Integer;
                           Shift: Cardinal);
begin
  MsgOk( Format('Shift is %u: Code key is: %d', [Shift, Key]) );
end;

begin
  F := NewForm( nil, '' );
  F.OnKeyDown := TOnKey( MakeMethod( nil, @KeyDown ) );
  Applet := F;
  Run( Applet );
end.

[Simply-Art]

Спасибо, вот чего мне не хватало Dummy : Pointer;
Тема закрыта