ЗАДАНИЕ. Напишите программу “Электронные часы”, на поверхности формы которой отображается текущее времяНапишите программу “Электронные часы”, на поверхности формы которой отображается текущее время.
Решение: 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. Задания для самостоятельного решения. Усовершенствовать программу задания (выше) таким образом, чтобы в окне еще отображалась текущая дата.
|
