30-05-2011, 10:07 PM
01-06-2011, 12:45 PM
السلام عليكم
- الكود معدل بدون تقطيع 100% , بالتوفيق,,
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if trackbar1.Max <> 0 then
begin
TrackBar1.OnChange := nil;
Trackbar1.Position := MediaPlayer1.Position;
TrackBar1.OnChange := TrackBar1Change;
end;
end;