W sekcji private declarations dodałem taką linię:
procedure WMChar(var Msg: TMessage); message WM_CHAR;
Następnie w sekcji implementation wpisałem taki kod :
procedure TForm1.WMChar(var Msg: TMessage); message WM_CHAR;
begin
ShowMessage('Nacisnięto klawisz');
end;
I wyskakuje błąd unknown directive 'message'
Dodam, że używam delphi 7 a to fragment z kursu delphi 5. Co jest nie tak?? :[