Mega Code Archive
Clx uygulamaları ile digital saat yapma
<![CDATA[
//Benim yaptığım uygulamada dosya ismi digitalsaatpas'tı.
//Aşağıda dijitalsaatpas yerine unit1 yada .pas uzantılı
//dosyaya verdiğiniz isim olmadır.
//******************************************************
//Ayrıca program içinde 2 farklı timer kullandım.
//1.Timer saat ve tarih göstermeye 2.Timer ise programın
//başlığının kayan yazı şeklinde olmasını sağlamaktadır.
//1.Timer'in Interval değeri : 1000
//2.Timer'in Interval değeri : 100 olarak kullandım...
//******************************************************
//İsterseniz programın kodlarını www.delphiturk.com
//adresinde program örnekleri bölümünden indirebilirsiniz.
unit dijitalsaatpas;
interface
uses
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
QStdCtrls, QTypes, QExtCtrls;
type
TForm1 = class(TForm)
LCDNumber1: TLCDNumber;
LCDNumber2: TLCDNumber;
Timer1: TTimer;
Timer2: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure LCDNumber1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LCDNumber2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.xfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
LCDNumber1.Value := TimeToStr(Time) ;
LCDNumber2.Value := DateToStr(Date) ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
LCDNumber1.Value := '' ;
LCDNumber2.Value := '' ;
LCDNumber1.Color := clBlack ;
LCDNumber2.Color := clBlack ;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Form1.Caption := Copy(Form1.Caption,2,Length(Form1.Caption)-1)+Form1.Caption[1] ;
end;
procedure TForm1.LCDNumber1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
LCDNumber1.Color := clRed ;
LCDNumber2.Color := clBlue ;
end;
procedure TForm1.LCDNumber2MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
LCDNumber2.Color := clRed ;
LCDNumber1.Color := clBlue ;
end;
end.
]]>