01-03-2009, 01:42 PM
الصفحات : 1 2
01-03-2009, 01:50 PM
هذا بسيط جدا ً
ضع SysUtils في قسم الـ Uses ان لم تن موجودة
اليك الكود الذي تكتبه داخل الـ Timer :
[COLOR="Indigo"]مع العلم غير خاصية الـ Interval الخاصة بالـ Timer لتبطيئ او تسريع العملية
و السلام عليكم[/COLOR]
ضع SysUtils في قسم الـ Uses ان لم تن موجودة
اليك الكود الذي تكتبه داخل الـ Timer :
كود :
[color=blue]var[/color]
Int : Integer;
[color=blue]Begin[/color]
Label1.caption := '30';
Int := StrToInt(Label1.caption);
Int := Int -1;
Label1.caption := IntToStr(Int);
[color=Blue]end;[/color]و السلام عليكم[/COLOR]
01-03-2009, 01:53 PM
هذه مثال مرفق والسلام عليكم
يبدوا سبقني اخي musvc
يبدوا سبقني اخي musvc
15-04-2009, 08:00 PM
السلام عليكم
أخ musvc الكود الذي وضعت لا يظهر العد التنازلي وإنما 30 ز 29 فقط !!
لأنك وضعت في تآيمر ( Label1.Caption := 30 )
فهو يعين القيمة 30 عند كل مرة لكن اخي جرب هذا الكود :
بارك الله فيكم جميعا !
أخ musvc الكود الذي وضعت لا يظهر العد التنازلي وإنما 30 ز 29 فقط !!
لأنك وضعت في تآيمر ( Label1.Caption := 30 )
فهو يعين القيمة 30 عند كل مرة لكن اخي جرب هذا الكود :
PHP كود :
procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Label1.Caption := IntToStr( StrToInt(Label1.Caption)-1 ) ;
end;
17-12-2009, 04:26 PM
الذي يبدو أن السائل يبحث عن شيء مثل:
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := TimeToStr(Now)
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(StrToTime(Label1.Caption)-StrToTime('00:00:01'))
end;
16-04-2010, 12:34 AM
السلام عليكم
لم تفلح معي امثلة الإخوة
انا أرلايده أن يبدأ العد من 3 دقائق ويبدا في التنازل
الله يحفظكم ويرعاكم بارك الله فيكم
لم تفلح معي امثلة الإخوة
انا أرلايده أن يبدأ العد من 3 دقائق ويبدا في التنازل
الله يحفظكم ويرعاكم بارك الله فيكم
16-04-2010, 07:18 AM
السلام عليكم
الأخ saber-bsa مرحبا بك في المنتدى
المثال الذي كتبته سابقا يبدأ العد التنازلي من التوقيت الحالي
ليبدأ العد التنازلي من ثلاث دقائق غير
في الكود السابق إلى:
إذا لم ينجح ذلك أرفق محاولتك.
الأخ saber-bsa مرحبا بك في المنتدى
المثال الذي كتبته سابقا يبدأ العد التنازلي من التوقيت الحالي
ليبدأ العد التنازلي من ثلاث دقائق غير
كود :
Label1.Caption := TimeToStr(Now)PHP كود :
Label1.Caption := '00:03:00'
16-04-2010, 11:46 AM
السلام عليكم ورحمة الله وبركاته
[/B][/COLOR]kachwahed أهلا أخي
طبقت ما قلته لي لكن يحدث خطأ
[/B][/COLOR]kachwahed أهلا أخي
طبقت ما قلته لي لكن يحدث خطأ
16-04-2010, 06:20 PM
انتبه إلى أين تكتب الحدث:
كود :
procedure TForm1.[color=Red]FormCreate[/color](Sender: TObject);
begin
Label1.Caption := '00:03:00'
end;16-04-2010, 09:49 PM
السلام عليكم
بارك الله فيك اخي الكريم
لقد نجح الامر
حفظك اله ورعاك
حفظ الله لك والديك
جعل الله لك هذه المعلومات في ميزان حسناتك
اللهم إرزق أخي ( kachwahed )الهدى والتقى والعفاف والغنى
بارك الله فيك اخي الكريم
لقد نجح الامر
حفظك اله ورعاك
حفظ الله لك والديك
جعل الله لك هذه المعلومات في ميزان حسناتك
اللهم إرزق أخي ( kachwahed )الهدى والتقى والعفاف والغنى
الصفحات : 1 2