
06.01.2014, 02:42
|
 |
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Вот ещё вариант
Код:
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;
будет работать?
|