+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أستخدم تايمر واحد فى عدة احداث ..؟ (/showthread.php?tid=6585)
كيف أستخدم تايمر واحد فى عدة احداث ..؟ - karika2 - 25-11-2014
بسم الله الرحمن الرحيم
كيف لى أستخدم 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;كيف أستخدم تايمر واحد فى عدة احداث ..؟ - محمد عبد العزيز - 26-11-2014
إقتباس :وكل حدث فى زمن متغيرما هو القاسم المشترك بينها ؟
كيف أستخدم تايمر واحد فى عدة احداث ..؟ - karika2 - 26-11-2014
b.m.abdelaziz كتب :ما هو القاسم المشترك بينها ؟
شكراّ للمرورك يا أستاذ عبد العزيز
كود :
5/1:=5كيف أستخدم تايمر واحد فى عدة احداث ..؟ - محمد عبد العزيز - 26-11-2014
تعديل بسيط على الكود المكتوب فوق
كود :
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 - 26-11-2014
شكراّ أستاذى B.M.AbdelAziZ ,
حقيقى طرايقة أكثر من رائعة جزاك الله كل خير