مواصلة القراءة في المديا بلاير MediaPlayer

[mohfa]

ضف هذا لمكون TTimer :

PHP كود :

procedure TForm1.Timer1Timer(Sender: TObject);
var
TrackPos,
TrackLen:Integer;
begin
TrackPos :=Trunc( WindowsMediaPlayer1.controls.currentPosition);
TrackLen :=Trunc( WindowsMediaPlayer1.currentMedia.duration);
if  (TrackPos=TrackLen) and (TrackPos>0) then begin
ComboBox1.ItemIndex :=ComboBox1.ItemIndex+1;
ComboBox1Change(self);
end;
end; 


ملاحظة : اجعل خاصية Enabled لل TTimer غير مفعلة إلا عند بداية القراءة .
والسلام عليكم .