• 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 Digital Saat Yapımı

Üyelik Tarihi
7 Ocak 2015
Konular
4,091
Mesajlar
4,274
MFC Puanı
40
Kod:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; Timer1: TTimer; Label2: TLabel; PopupMenu1: TPopupMenu; effaflk1: TMenuItem; N1: TMenuItem; Kapat1: TMenuItem; EnDk1: TMenuItem; Dk1: TMenuItem; Orta1: TMenuItem; Yksek1: TMenuItem; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure EnDk1Click(Sender: TObject); procedure Dk1Click(Sender: TObject); procedure Orta1Click(Sender: TObject); procedure Yksek1Click(Sender: TObject); procedure Kapat1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject);  //Timer kullanım amacı saniyede bir bu eşitlemeler yapılarak Digital Saatimizden görüntü alabiliyoruz.  begin DateTimePicker1.Time:=Time;//DateTimePicker bileşeni sistem saatine eşitleniyor.  DateTimePicker1.Date:=Date;//DateTimePicker bileşeni sistem tarihine eşitleniyor.  label2.Caption:=datetostr(DateTimePicker1.date)+#13+?  ?+timetostr(DateTimePicker1.time);  //Üst satırda ise label bileşenine tarih ile saat yazdırılıyor.  end;  procedure TForm1.FormCreate(Sender: TObject);  //İlk görünümde Digital Saatimize sistem saat ve tarihi gösteriliyor.  begin  DateTimePicker1.Time:=Time;  DateTimePicker1.Date:=Date;  label2.Caption:=datetostr(DateTimePicker1.date)+#13+?  ?+timetostr(DateTimePicker1.time);  end;  procedure TForm1.EnDk1Click(Sender: TObject);  begin  AlphaBlend:=false;//Şeffaflık faaliyeti.  Dk1.Checked:=FALSE;  Orta1.Checked:=FALSE;  Yksek1.Checked:=FALSE;  EnDk1.Checked:=TRUE;  end;  procedure TForm1.Dk1Click(Sender: TObject);  begin  AlphaBlend:=TRUE;//Şeffaflık faaliyeti.  AlphaBlendValue:=200;//Şeffaflık seviyesi.  Dk1.Checked:=TRUE;  Orta1.Checked:=FALSE;  Yksek1.Checked:=FALSE;  EnDk1.Checked:=FALSE;  end;  procedure TForm1.Orta1Click(Sender: TObject);  begin  AlphaBlend:=TRUE;  AlphaBlendValue:=100;  Dk1.Checked:=FALSE;  Orta1.Checked:=TRUE;  Yksek1.Checked:=FALSE;  EnDk1.Checked:=FALSE;  end;  procedure TForm1.Yksek1Click(Sender: TObject);  begin  AlphaBlend:=TRUE;  AlphaBlendValue:=50;  Dk1.Checked:=FALSE;  Orta1.Checked:=FALSE;  Yksek1.Checked:=TRUE;  EnDk1.Checked:=FALSE;  end;  procedure TForm1.Kapat1Click(Sender: TObject);  begin  Close;//Programı kapat.  end;  end.
 
Üst