Delphi programlama dili ile yapılan Digital Saat programını görelim. Programda amaç, Timer, Datetimepicker, Popup Menu bileşenlerini kullanabilmeyi öğrenmektir..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
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.