Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Delphi'de Tarih ve Saat Yapımı

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

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...

Kod:
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...

Kod:
Label2.Caption:=DateToStr(Date);//Label içine Tarihi yazar
Edit2.Text:=DateToStr(Time);//Edit içine Tarihi yazar
end;
 
Üst Alt