كيف تصصميم ساعة رقمية او كلاسيكية

اضف العنصرين label Timer الى البرنامج:

اكتب في اكتب في حدث on time للعنصر timer

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=TimeToStr(Time)
end;

مشكور اخي abdelbaki