+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اضع شرط يقوم بألايقاف المؤقت ثم التشغيل فيWindowsMediaPlayer في Button واحد (/showthread.php?tid=3767)
كيف اضع شرط يقوم بألايقاف المؤقت ثم التشغيل فيWindowsMediaPlayer في Button واحد - المحجوب - 09-01-2012
السلام عليكم
لدي Button واحتاج لشرط يقوم بالتشغيل والايقاف الموقت بين كل نقرة واخرى
هل يقوم المبرمجون بأستخدام خاصية Visible في هذه الحالة لزرين فوق بعض ؟
ام يوجد شرط لحل هذا المسألة ؟
كيف اضع شرط يقوم بألايقاف المؤقت ثم التشغيل فيWindowsMediaPlayer في Button واحد - hanipino - 09-01-2012
و عليكم السلام و رحمة الله
يمكننا الاستفادة من الخاصية 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;كيف اضع شرط يقوم بألايقاف المؤقت ثم التشغيل فيWindowsMediaPlayer في Button واحد - المحجوب - 10-01-2012
هلا وسهلا
شكراً على ايضاح هذه الخاصية لكن يظهر لي خطأ في 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;
كيف اضع شرط يقوم بألايقاف المؤقت ثم التشغيل فيWindowsMediaPlayer في Button واحد - hanipino - 10-01-2012
يمكن بعدم الاعتماد على 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;كيف اضع شرط يقوم بألايقاف المؤقت ثم التشغيل فيWindowsMediaPlayer في Button واحد - المحجوب - 10-01-2012
هذا جميل ... شكراً لك