Стр. 215 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
215
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false;
Timer1.Interval:=1000;
Form1.Caption:='';
Form1.BorderStyle:=bsSingle;
Form1.BorderIcons:=[biSystemMenu,biMinimize];
MediaPlayer1.VisibleButtons:=[btPlay,btPause,btStop];
GetFilePath(Edit1.Text);
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if MediaPlayer1.Mode=mpPlaying then
MediaPlayer1.Stop;
MediaPlayer1.Close;
MediaPlayer1.FileName:='';
GetFilePath(Edit1.Text);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
curr:=ListBox1.ItemIndex;
MediaPlayer1.FileName:=ms[curr];
MediaPlayer1.Open;
Form1.Caption:=ExtractFileName(ms[curr]);
end;
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button:
TMPBtnType;
var DoDefault: Boolean);
begin
if Button=btPlay then
begin
sec:=0;
min:=0;
hour:=0;
Timer1.Enabled:=true;
end;
if Button=btStop then
begin