Delphi'de Tarih ve Saat Yapımı

[efecannn]

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);beginLabel1.Caption:=TimeToStr(Time);// Label içine Saati yazarEdit1.Text:=TimeToStr(Time);// Edit içine Saati yazarend;

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;