[casperock]

Сообщение от Alegun

Вот ещё вариант

Код:

procedure mpc (ds: boolean);
begin
 if ds then
begin;
 Form1.MediaPlayer1.FileName:='1.mp3';
 Form1.MediaPlayer1.Open;
 Form1.MediaPlayer1.Play;
end else
 begin
 Form1.MediaPlayer1.Stop;
 Form1.MediaPlayer1.Close;
 end;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 mpc(true)
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 mpc(false);
end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_LEFT then mpc(true);
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_LEFT then mpc(false);
end;

будет работать?

Так же как и раньше. Только с отличием, теперь ошибка вылазить только на левую стрелку, а не на все стрелки как раньше. Но суть та же, ошибка((