دخول

المحجوب · 30-05-2011, 10:07 PM

كيف يتم حل هذه المشكلة عند تشغيل TrackBar1 للميديا
يعمل تقطيع في الصوت
اود الانتقال وتحريك TrackBar1 بدون مشاكل بالصوت
وهذا مثالي مرفق ...

**TF6M**

السلام عليكم

كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if trackbar1.Max <> 0 then
 begin
  TrackBar1.OnChange := nil;
  Trackbar1.Position := MediaPlayer1.Position;
  TrackBar1.OnChange := TrackBar1Change;
 end;
end;

- الكود معدل بدون تقطيع 100% , بالتوفيق,,

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة