Delphi'de Tarih ve Saat Yapımı

Bu dersimizde Label ve Edit İçine Tarih ve Saat Yapalım.

Bu dersimizde Label ve Edit İçine Tarih ve Saat Yapalım.

Formumuza Standard sekmesinden 2 tane Label ve Edit ekleyelim.

Şimdi de System sekmesinden 2 tane timer nesnesi ekleyelim.

Şimdi kodları yazmaya başlayalım. Timer1 nesnesini çift tıklayalım...


procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=TimeToStr(Time);// Label içine Saati yazar

Edit1.Text:=TimeToStr(Time);// Edit içine Saati yazar

end;



ve kodları ekleyelim.

Şimdi de aynı şekilde Timer2 nesnesini çift tıklayalım...


Label2.Caption:=DateToStr(Date);//Label içine Tarihi yazar

Edit2.Text:=DateToStr(Time);//Edit içine Tarihi yazar

end;



ve kodları yazalım...

Not: Koyu olan yazılar kodlardır.

Herşey tamamdır. Şimdi f9 tuşuna basarak formu çalıştırın.


Özel Not: Bunları yapmak çok kolay olduğunu biliyorum fakat yeni başlayan arkadaşlara umarım faydalı olur. :) ;)
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Benim gibi yeni başlayanları düşündüğünüz için teşekkürler.
tşk ederim eklenti için benim için çook faydalı olacaktır
Çok teşekkürler

Yukarı Git