المشاركات : 97
المواضيع 38
:
: 0
الإنتساب : May 2015
السلام عليكم ورحمة الله وبركاته
كيف الحال
عندي سؤال كيف اربط ساعة الجهاز بEdit او Label بحيث تظهر في الEdit او الLabel و تتغير مع وقت الجهاز
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً
المشاركات : 476
المواضيع 0
:
: 217
الإنتساب : Apr 2011
سلام عليكم
اضف Ttimer من System
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.text:=timetostr(time);
Label1.caption:=timetostr(time);
end;
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر
المشاركات : 97
المواضيع 38
:
: 0
الإنتساب : May 2015
(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;
شكرا جزيلا لك اخي ...
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً
