procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_SPACE then showmessage('użyłeś spacji'); end;
I działa niby wszystko jak należy z jednym ALE... klawisz spacji można użyć tylko raz... później już go nie przechwytuje...
