20-06-2015, 11:58 AM
كود :
[COLOR=Green]timer1.Interval:=1000
timer1.Enabled:=false[/COLOR]كود :
procedure TForm1.openClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Display:=Panel1;
MediaPlayer1.Open;
end;
end;كود :
procedure TForm1.playClick(Sender: TObject);
begin
Timer1.Enabled:=True;
end;كود :
procedure TForm1.stopClick(Sender: TObject);
begin
timer1.Enabled:=false;
MediaPlayer1.Stop;
end;كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.Play;
end;
> مبرمج مبتدئ < سبحان الله بحمده... سبحان الله العظيم