07-02-2016, 02:49 AM
سلام عليكم
اضف Ttimer من System
اضف Ttimer من System
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.text:=timetostr(time);
Label1.caption:=timetostr(time);
end;
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر