Dziwny problem z komunikatem.

0

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?? :[

0

Deklarację masz dobrze, ale gdy piszesz treść procedury to nie podawaj przy nazwie message. Napisz:

procedure TForm1.WMChar(var Msg: TMessage);
 begin
 ShowMessage('Nacisnięto klawisz');
 end;
0

Dzięki :) A wszystko dlatego, że nie działa ctrl + shift + c.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0