• Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.

Delphi'de Tarih ve Saat Yapımı

Üyelik Tarihi
7 Ocak 2015
Konular
4,091
Mesajlar
4,274
MFC Puanı
40
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