تکرار در عنصر مدیا پلیر

[peiman]

چطوری میشه برای عنصر مدیا پلیر تکرار اتوماتیک گذاشت؟ یعنی تا دنیا دنیاست بخونه

 

[Amir Lajevardi]

ابتدا قبل از تعریف متغیرهای اصلی یک ثابت همانند زیر تعریف کنید:

const
ModeStr: array[TMPModes] of string =
('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

سپس در Event -> onnotify مربوط به mediaplayer کدهای زیر رو اضافه کنید:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if (Loop.Checked)and(ModeStr[MediaPlayer1.Mode]='Stopped') then
    MediaPlayer1.Play;
end;

loop یک checkbox هستش که روی فرم باید قرار بدین تا تکرار شدن یا نشدن رو بر اساس اون معین کنید.

اگر در پیاده سازیش مشکلی بود بفرمائید.

 

[peiman]

بد جوری دنبالش بودم
هم این هم سیستم ترای
مرسی