+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال بخصوص التاايمر ؟ (/showthread.php?tid=346)
سؤال بخصوص التاايمر ؟ - AL-MOB4RM3G - 24-12-2008
السلام عليكم
اخواني لي سؤال بخصوص التايمر...
وهو ... كيف اخي الأمر ينشئ مرة واحدة فقد ؟
مثلا...
بعد الضغط على كبسة بخمس ثوني يتم عمل لون الفورم احمر...
ولكن المشكلة لو وضعتها في تايمر... فسيتم ارسال هذا الأرم بستمرار كل 5 ثواني... ولكن
انا ****ه فقد مرة واحدة...
ان شاء الله اتضحد الفكرة؟
سؤال بخصوص التاايمر ؟ - محمد عبد العزيز - 24-12-2008
قم بتعطيل Timer عند اول استعمال
مثلا لوكنت كاتب
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Color := ClRed;
end;كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Color := ClRed;
Timer1.Enabled := False;
end;سؤال بخصوص التاايمر ؟ - Rover - 24-12-2008
في الحالة التي ذكرتها : بعد خمس ثواني , لا داعي لأستخدام Timer ..
يمكنك أستخدام المنهج Sleep كمايلي :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Sleep(5000);
Form1.Color:= Clred;
end;
- أما عندما تريد أستخدام Timer فعند الضغط على الزر تكتب :
Timer1.Enable:= True;
مع الأنتباه إلى تحديد الخصائص الأولية للتايمر كمايلي :
Enabled =False
Interval = 5000 ( خمس ثواني )
-ثم تضع في حدث Timer1.Timer :: كما أشار الأخ DelaAziz
بالتوفيق أن شاء الله ...
سؤال بخصوص التاايمر ؟ - hanipino - 24-12-2008
اضافة For الى طريقة Rover .
PHP كود :
var
I:integer;
begin
for I:= 0 to 4 do
Sleep (1000);
Form1.Color:=Clred;
end;
سؤال بخصوص التاايمر ؟ - AL-MOB4RM3G - 24-12-2008
نعم بارك الله فيكم اخواني... وشكرا لكم...
جربت الحالتين و كلتا الحلتين نجحت معي ولله الحمد...
اخواني شكرا لكم...
واعتقد ان امر ال سليب كان افضل من الذي كنت استخدمه او احاول استخدامه مع التايمر...
ولكن لك اكن اعلم ان هناك ارم سليب....
شكرا لكم مرة اخرى...
والسلام عليكم