Comment faire une horloge numérique dans delphi7?

Je suis assez nouveau à delphes , et je voudrais commencer par quelque chose de facile .
Quelqu'un pourrait-il svp me montrer un exemple de comment faire une horloge Numérique qui permettra de transférer le "time" ( heure , min , sec ) à un label ? Ou quelque chose comme ça

source d'informationauteur Art Kristof

  1. 15

    Télécharger mon open source NLDDigiLabel composant de icitrois d'entre eux sur le formulaire, placez deux étiquettes dans les entre les séparateurs de temps, et de définir la couleur d'arrière-plan de la forme. Dans cet exemple, j'ai fait tout ça sur une image pour plus de commodité:

    unit Unit2;

interface

uses
  Windows, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls,
  NLDDigiLabel;

type
  TDigitalClock = class(TFrame)
    HoursLabel: TNLDDigiLabel;
    MinsLabel: TNLDDigiLabel;
    SecsLabel: TNLDDigiLabel;
    TimeSeparator1: TLabel;
    TimeSeparator2: TLabel;
    Timer: TTimer;
    procedure TimerTimer(Sender: TObject);
  private
    FTime: TTime;
    procedure SetTime(Value: TTime);
  public
    property Time: TTime read FTime write SetTime;
  end;

implementation

{$R *.dfm}

{ TDigitalClock }

procedure TDigitalClock.SetTime(Value: TTime);
var
  Hours: Word;
  Mins: Word;
  Secs: Word;
  MSecs: Word;
begin
  if FTime <> Value then
  begin
    FTime := Value;
    DecodeTime(FTime, Hours, Mins, Secs, MSecs);
    HoursLabel.Value := Hours;
    MinsLabel.Value := Mins;
    SecsLabel.Value := Secs;
  end;
end;

procedure TDigitalClock.TimerTimer(Sender: TObject);
begin
  SetTime(FTime + 1/SecsPerDay);
end;

end.

    Maintenant, la chute d'un tel cadre de votre formulaire, et voilá:

    procedure TForm1.FormCreate(Sender: TObject);
begin
  DigitalClock1.Time := Time;
end;

    Comment faire une horloge numérique dans delphi7?

  2. -1

    Voici mon horloge caractéristiques:

    1. Temps de l'exactitude de 100%.
    2. Date est également ajouté.
    3. Il est facile à faire et à ne pas prendre moins de 2 minutes; il suffit de créer un timer et 2 étiquettes, et d'écrire cette mise en œuvre:

    procedure TForm1.FormCreate(Sender: TObject);
begin
  //Background,Clock's Settings
  form1.Caption:='Digital Clock';
  form1.Height:=260;
  form1.Width:=750;
  form1.BorderStyle:=bsToolWindow;
  form1.Color:=clbackground;

  //Label (Time,Date) Settings
  label1.Font.Size:=72;
  label1.Font.Color:=clred;
  label1.Caption:='Time';
  label1.Top:=0;
  label1.Left:=8;

  label2.Font.Size:=72;
  label2.Font.Color:=clblue;
  label2.Caption:='Date';
  label2.Top:=104;
  label2.Left:=8;
end;

//Create Clock,Calendar
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:='Time: '+timetostr(time);
  label2.Caption:='Date: '+datetostr(date);

  timer1.Interval:=1; //100% Accuracy
end;

    Comment faire une horloge numérique dans delphi7?