+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اربط ساعة الجهاز بEdit او Label (/showthread.php?tid=7489)
كيف اربط ساعة الجهاز بEdit او Label - Programmerstn - 07-02-2016
السلام عليكم ورحمة الله وبركاته
كيف الحال
عندي سؤال كيف اربط ساعة الجهاز بEdit او Label بحيث تظهر في الEdit او الLabel و تتغير مع وقت الجهاز
RE: كيف اربط ساعة الجهاز بEdit او Label - Mr.DOS - 07-02-2016
سلام عليكم
اضف Ttimer من System
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.text:=timetostr(time);
Label1.caption:=timetostr(time);
end;RE: كيف اربط ساعة الجهاز بEdit او Label - Programmerstn - 07-02-2016
(07-02-2016, 02:49 AM)Mr.DOS كتب : سلام عليكم
اضف Ttimer من System
كود :procedure TForm1.Timer1Timer(Sender: TObject); begin Edit1.text:=timetostr(time); Label1.caption:=timetostr(time); end;
شكرا جزيلا لك اخي ...