Рис. 1.15. В окне программы Электронные часы отображается текущее время и дата

unit eclock_2_;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
type
TForml = class(TForm)
Timerl: TTimer;
Label1: TLabel;
Label2: TLabel;
Shapel: TShape;
procedure FormPaint(Sender: TObject);
procedure TimerITimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
42Часть 1
// Объявление процедуры ShowTime
// помещено сюда вручную.
// Это сделано, чтобы функция имела
// доступ к компонентам формы напрямую
procedure ShowTime; private
/ Private declarations }
public
{ Public declarations }
end;var
Forml: TForml;implementation{$R *.dfm}// отображает текущее время
procedure TForml.ShowTime; "
var
Time: TDateTime; // текущее время
begin
Time := Now(); // получить системное время
Labe11.Caption := FormatDateTime('hh:mm:ss',Time);
end;// обработка события Paint
procedure TForml.FormPaint(Sender: TObj ect);
begin
ShowTime; // отобразить часы
end;// обработка сигнала таймера
procedure TForml.TimerITimer(Sender: TObject);
begin
ShowTime; // отобразить время
end;procedure TForml.FormCreate(Sender: TObject);
begin
Label2.Caption := FormatDateTime('dd.mm.yyyy',Now())
Примеры и задачи_43_ // настроить и запустить таймер
Timerl.Interval := 1000; // период сигналов таймера 1 с
TimerI.Enabled := True; // пуск таймера
end;
end.