+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف نقوم بصنع مؤقت عكسي داخل Label (/showthread.php?tid=4694)
كيف نقوم بصنع مؤقت عكسي داخل Label - M_Mori2010 - 03-11-2012
السلام عليكم ورحمة الله وبركاته ..
كيف يمكننا ان نقوم بصنع مؤقت عكسي في Label ونحدد الوقت من SpinEdit
مثلاً :
الرقم في SpinEdit = 600
فهذا يؤدي الى
Label.caption:= 10:00
ومن ثم انقاص الوقت ثانية بثانية
جزاكم الله الخير
كيف نقوم بصنع مؤقت عكسي داخل Label - M_Mori2010 - 03-11-2012
وجدت حل
الحل :
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;