procedure TForm2.Button1Click(Sender: TObject); begin If OpenDialog1.Execute=true then begin MediaPlayer1.FileName := OpenDialog1.FileName; MediaPlayer1.Open; end; end; procedure

procedure TForm2.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute=true then
begin
MediaPlayer1.FileName:= OpenDialog1.FileName;
MediaPlayer1.Open;
end;
end;
procedure TForm2.FormActivate(Sender: TObject);
begin
MediaPlayer1.Display:= GroupBox1;
end;end.

Дата добавления: 2015-09-29