delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته ..

كيف يمكننا ان نقوم بصنع مؤقت عكسي في Label ونحدد الوقت من SpinEdit

مثلاً :

الرقم في SpinEdit = 600

فهذا يؤدي الى

Label.caption:= 10:00

ومن ثم انقاص الوقت ثانية بثانية

جزاكم الله الخير

وجدت حل

الحل :

PHP كود :
function SecToTime(Sec: Integer): string;
var
   H, M, S: string;
   ZH, ZM, ZS: Integer;
begin
   ZH := Sec div 3600;
   ZM := Sec div 60 - ZH * 60;
   ZS := Sec - (ZH * 3600 + ZM * 60) ;
   H := IntToStr(ZH) ;
   M := IntToStr(ZM) ;
   S := IntToStr(ZS) ;
   Result := M + ':' + S;
end;

//في حدث بوتون
procedure TForm4.btn24Click(Sender: TObject);
begin
tmr3.Enabled:=true;
se6.Value:=form7.se3.Value;
lbl9.Caption := sectotime(se6.Value);
end;


// في حدث تايمر

procedure TForm4.tmr3Timer(Sender: TObject);
begin
se6.Value:=se6.Value-1;
lbl9.Caption := sectotime(se6.Value);
if se6.Value = 0 then
tmr3.Enabled:=false;
end; 

M_Mori2010

M_Mori2010