استخدام timer لأنجاز مهمه

[Dr.MOT]

اخي على حسب فهمي للسؤال ,,

فأنت تريد عند الضغط على الزر أن يبدأ يحسب ,, وبعد الانتهاء والضغط على زر آخر مثلا يظهر الوقت !؟

أولا لا تنسى : غير الخاصية Enabled إلى False للتآيمر

وتأكد أن الخاصية Inetval للتآيمر = 1000 >> هذا يعني ثانية واحدة


التآيمر :

PHP كود :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 i := i + 1 ;   //حساب عدد الثواني حيث عند كل ثانية يزيد واحد
end; 


الزر الأول ( زر البدء ) :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True ;   //بدء عمل التآيمر
end; 


الزر الثاني ( زر الإيقاف وإظهار الوقت ) :

PHP كود :

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := False;     //إيقاف عمل التآير
ShowMessage(IntToStr(i) + ' Sec'); //إظهار رسالة بالوقت المستغرق
end; 


ولكن لا تنسى أن تتأكد أن يكون تعريف المتغير i عام ,, أي هنا :

PHP كود :

var
  Form1: TForm1;
  i : integer ;

implementation 


-------------------------

والسلام عليكم ,, وعذرا على الإطالة