ЗАДАНИЕ. Напишите программу “Электронные часы”, на поверхности формы которой отображается текущее время, (рис

Напишите программу “Электронные часы”, на поверхности формы которой отображается текущее время, (рис. 21).

рис. 21

 

Решение:

unit eclock;

interface

uses

Windows, Messades, Syssages, Syslltils, Variants, Clasess,

Graphics, Controls, Forms, Dialogs, Extltrls, StdCtrls;

type

TForm1= class (TForm)

Timer1: Ttimer;

Label1: Tlabel;

procedure FormPaint (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure FormCreate (Sender: TObject);

{объявление процедуры ShowTime}

{помещено вручную это сделано, чтобы функция имела доступ к компонентам формы напрямую}

procedure ShowTime;

private

{private declarations}

public

{public declarations}

end;

var

Form1: TForm1;

Implementation

{$r*.dfm}

{отображает текущее время}

procedure TForm1.ShowTime;

var

Time: TDateTime; {текущее время}

Begin

Time: =Now(); {получить системное время}

Label1.Caption: =FormatDateTime (‘hh: mm: ss’, Time);

End;

{обработка события Paint}

procedure TForm1.FormPaint (Sender: TObject);

begin

ShowTime; {отобразить часы}

End;

{обработка сигнала таймера}

procedure TForm1.Timer1Timer (Sender: TObject);

begin

ShowTime; {отобразить время}

End;

Procedure TForm1.FormCreate (Sender: TObject);

Begin

{настроить и запустить таймер}

Timer1.Interval: =1000 {период сигнала таймера 1с}

Timer1.Enabled: =True {пуск таймера}

End;

End.

Задания для самостоятельного решения.

Усовершенствуйте программу задания (выше) таким образом, чтобы в окне еще отображалась текущая дата.