Başlangıç > Kodlar > Delphi ile Dijital saat komponenti

Delphi ile Dijital saat komponenti

Gayet başarılı bir çalışma olduğuna inanıyorum. hemde çok kısa bir kod..

unit dijital;

interface

uses
SysUtils, Classes, ExtCtrls, Dialogs;

type
Tdijital = class(TPanel)
private
Tetikle : TTimer;
procedure SaatiGetir;
procedure SaatiYaz(Sender: Tobject);
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Latif', [Tdijital]);
end;

constructor Tdijital.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SaatiGetir;
Caption := ";
Caption := 'ADANALI';
end;

procedure Tdijital.SaatiGetir;
begin
Tetikle := TTimer.Create(Parent);
Tetikle.Interval := 1000;
Tetikle.Enabled := True;
Tetikle.OnTimer := SaatiYaz;
end;

procedure Tdijital.SaatiYaz(Sender: Tobject);
begin
Caption :=TimeToStr(Now);
end;//SaatiYaz

destructor Tdijital.Destroy;
begin
Tetikle.Enabled := False;
Tetikle.Free;
inherited Destroy;
end;
end.


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: