لقد صنعت ميديا بلير متكاملة وأحتاج فقط كيف استيراد مكاتب لتشغيل الصيغ
هل من معلومات حول هذا الموضوع وستجدون إن شاء الله الميديا الأسلامي الجديد المتكامل
procedure TForm1.PlayLevelMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if ssLeft in Shift then
begin
with PlayLevel do begin
Position := Round(X / (Width - 4) * Max);
BASS_ChannelSetPosition(C, Position,BASS_POS_BYTE);
end;
end;
end;