zahra20
دوشنبه 21 دی 1383, 12:37 عصر
من مشکلم اینه که نمی دو نم چطوری با کلیک بر روی label فایل صوتی شروع به اجرا می کنه
دوشنبه 21 دی 1383, 12:57 عصر
سلام
procedure TForm1.Label1Click(Sender: TObject);
begin
with MediaPlayer1 do
begin
TimeFormat:=tfMilliseconds;
FileName:='C:\Sound.mp3';
Open;
Play;
end;
end;
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.