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

بسم الله الرحمن الرحيم
كيف لى أستخدم Timer1.Interval فى عدة أحدث وكل حدث فى زمن متغير داخل الـtimer واحد فقط ;
جربت هكذا وطبعاّ فشلت

كود :
Timer1.Interval:=5000;

كود :
case Timer1.Interval of
1000:ShowMessage('Interval=1000');
2000:ShowMessage('Interval=2000');
3000:ShowMessage('Interval=3000');
4000:ShowMessage('Interval=4000');
5000:ShowMessage('Interval=5000');
end;

إقتباس :وكل حدث فى زمن متغير

ما هو القاسم المشترك بينها ؟

b.m.abdelaziz كتب :ما هو القاسم المشترك بينها ؟

شكراّ للمرورك يا أستاذ عبد العزيز

كود :
5/1:=5

أى عند كل مرور ثانية من داخل تايمر يساوى حدث.

تعديل بسيط على الكود المكتوب فوق

كود :
Var i: byte;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(i);
  case i of
  1:ShowMessage('Interval=1000');
  2:ShowMessage('Interval=2000');
  3:ShowMessage('Interval=3000');
  4:ShowMessage('Interval=4000');
  5:begin
    ShowMessage('Interval=5000');
    i:=0;
    end;
  end;
end;

شكراّ أستاذى B.M.AbdelAziZ ,
حقيقى طرايقة أكثر من رائعة جزاك الله كل خير

karika2

محمد عبد العزيز

karika2

محمد عبد العزيز

karika2