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

[karika2]

بسم الله الرحمن الرحيم
كيف لى أستخدم 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;

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

وكل حدث فى زمن متغير

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

[karika2]

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

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

كود :

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;

[karika2]

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