delphi4arab منتديات دلفي للعرب

السلام عليكم

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

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

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

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

يمكننا الاستفادة من الخاصية 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; 

يمكن بعدم الاعتماد على 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;

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

المحجوب

hanipino

المحجوب

hanipino

المحجوب