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

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

كيف الحال

عندي سؤال كيف اربط ساعة الجهاز بEdit او Label بحيث تظهر في الEdit او الLabel و تتغير مع وقت الجهاز

سلام عليكم

اضف Ttimer من System

كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.text:=timetostr(time);
Label1.caption:=timetostr(time);
end;

(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;

شكرا جزيلا لك اخي ...

Programmerstn

Mr.DOS

Programmerstn