mediaplayerde melodi

[r_korkmaz44]

Arkadaşlar maskedit1 ve maskedit2 deki saatler dolunca melodi açlıyo.benim istediğim şu: timer1 de Ontimer kısmında maskedit1 de süre dolunca melodi çalıyor.aynı timer1 de bu maskedit2 deki süre dolunca yine aynı müziği çaldıracam.

yani aynı müziği farklı saatlerde çaldıracam. bunu nasıl yapabilirim.1.müziği çaldırdım.2.müziği çaldıramadım. nasıl çaldırırım.Amacım aynı mediaplayerde ve aynı timer de 2.müziği çaldırmak.

Kod: Tümünü seç

procedure Tform1.timer1timer(sender:Tobject);
var
a,b:string;
a:=maskedit1.text;
b:=copy(timetostr(time)1,2)+':'+copy(timetostr(time)4,2);
if a=b then
begin
timer1.enabled:=false;
mediaplayer1.close;
timer1.interval:=30000;
mediaplayer1.filename:='d:\5.mp3';
mediapaler1.open;
mediaplayer1.play;
end;
end;

2.müzik içinde

Kod: Tümünü seç

procedure Tform1.timer1timer(sender:Tobject);
var
c,b:string;
c:=maskedit2.text;
b:=copy(timetostr(time)1,2)+':'+copy(timetostr(time)4,2);
if a=b then
begin
timer1.enabled:=false;
mediaplayer1.close;
timer1.interval:=30000;
mediaplayer1.filename:='d:\5.mp3';
mediapaler1.open;
mediaplayer1.play;
end;
end;