كيف اضع شرط يقوم بألايقاف المؤقت ثم التشغيل فيWindowsMediaPlayer في Button واحد

[المحجوب]

السلام عليكم


لدي Button واحتاج لشرط يقوم بالتشغيل والايقاف الموقت بين كل نقرة واخرى

هل يقوم المبرمجون بأستخدام خاصية Visible في هذه الحالة لزرين فوق بعض ؟

ام يوجد شرط لحل هذا المسألة ؟

[hanipino]

و عليكم السلام و رحمة الله

يمكننا الاستفادة من الخاصية Tag التابعة لل Button

كود :

procedure TForm1.ButtonClick(Sender: TObject); begin if Button.Tag = 0 then Button.Tag := 1 else Button.Tag := 0; case Button.Tag of 0: begin اكتب هنا كود التشغيل end; 1: begin اكتب هنا كود الايقاف end; end; end;

[المحجوب]

هلا وسهلا

شكراً على ايضاح هذه الخاصية لكن يظهر لي خطأ في case Button4.Tag of

PHP كود :

procedure TForm1.Button4Click(Sender: TObject);
begin
if Button4.Tag= 0 then
Button4.Tag:= 1
else
Button4.Tag:= 0
 case Button4.Tag of
    0:
      begin
         WindowsMediaPlayer1.controls.play;
      end;
    1:
      begin
      WindowsMediaPlayer1.controls.pause;
end; 


[hanipino]

يمكن بعدم الاعتماد على case بهذا الشكل ... مباشرتا

كود :

procedure TForm1.Button4Click(Sender: TObject); begin if Button4.Tag = 0 then begin Button4.Tag := 1; WindowsMediaPlayer1.controls.play; end else begin Button4.Tag := 0; WindowsMediaPlayer1.controls.pause; end; end;

[المحجوب]

هذا جميل ... شكراً لك