Цитата:
|
Сообщение от casperock
Вот пример кода, который почемуто работает при нажатии Ctrl.
Код:
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if GetKeyState(VK_LEFT) <> 0 then
MediaPlayer1.FileName:='1.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end; |
Заключи в операторные скобки
begin..
end всё что должно выполниться при выполнении условия.