media player

[zahra20]

من مشکلم اینه که نمی دو نم چطوری با کلیک بر روی label فایل صوتی شروع به اجرا می کنه

سلام

procedure TForm1.Label1Click(Sender: TObject);

begin

  with MediaPlayer1 do

  begin

    TimeFormat:=tfMilliseconds;

    FileName:='C:\Sound.mp3';

    Open;

    Play;

  end;

end;