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