07-02-2016, 03:00 AM
(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;
شكرا جزيلا لك اخي ...
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً