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]