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.