lanetli adlı üyeden alıntı: mesajı görüntüle
zuhaha

hocam sana delphi kodlarını yazayım bu kadar kasmaya hiç gerek yok

bi tane label koy bitanede timer

timer a

label1.caption:=timetostr(time);

yaz yeter sonra font kısmından istediğin gibi büyükt küçült yazıyı
o yolla vb dede yapılıyor ama arkadaş tam digital saat olması için picture yani resimler ile çalışmış.

bu arada timerın intervalını vermessen saat kafayı yiyebilir

buyrun vb de kısa yoldan digital saat:

1 adet timer 1 adet label ekleyin ve aşağıdaki kodları ekleyin.

Private Sub Form_Load()
Form1.Caption = "DİJİTAL SAAT PROGRAMI (YKD)"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
label1.caption=time$
End Sub