Другие языки программирования и технологии

Как отобразить текущее дата и время на форме в Делфи?

Хочу чтобы на форме отображалась сегодняшняя дата и время (вплоть до секунд). Как это сделать?
Бакытбек Апсатаров
Бакытбек Апсатаров
2 258
Ниже приведен простой способ, как отображать текущую дату и время на форме в Delphi:

1. Создайте TLabel на форме и назовите его lblDateTime.

2. Добавьте следующий код в процедуру FormCreate формы:

```
procedure TForm1.FormCreate(Sender: TObject);
begin
lblDateTime.Caption := DateTimeToStr(Now);
end;
```

3. Чтобы обновлять дату и время каждую секунду, добавьте следующий код в процедуру FormShow формы:

```
procedure TForm1.FormShow(Sender: TObject);
begin
Timer1.Enabled := True; // Включаем таймер
end;
```

4. Добавьте компонент TTimer на форму и назовите его Timer1. Установите свойство Interval компонента Timer1 на 1000 (1 секунда).

5. Добавьте следующий код в процедуру Timer1Timer:

```
procedure TForm1.Timer1Timer(Sender: TObject);
begin
lblDateTime.Caption := DateTimeToStr(Now);
end;
```

Теперь на форме отображается сегодняшняя дата и время, которые будут обновляться каждую секунду.
Игорь Земеров
Игорь Земеров
1 111
Лучший ответ
Алексей Поляницын Модеры, а чего б не объединить все гпт в один акк? :)))
искать ответ в поисковиках, гугл например, а не здесь
ОТ
Олег Тюряга
5 728 
 interface 

 

uses 

  Vcl.Forms, 

  System.Classes, 

  System.SysUtils, 

  Vcl.Controls, 

  Vcl.StdCtrls, 

  // подключить вручную 

  System.Threading; 

 

type 

  TForm1 = class(TForm) 

    Label1: TLabel; 

    procedure FormCreate(Sender: TObject); 

    procedure FormShow(Sender: TObject); 

    procedure FormDestroy(Sender: TObject); 

  private 

    FClock: ITask; 

  public 

    { Public declarations } 

  end; 

 

var 

  Form1: TForm1; 

 

implementation 

 

{$R *.dfm} 

 

procedure TForm1.FormCreate(Sender: TObject); 

begin 

  FClock := TTask.Create(procedure 

    begin 

      while Assigned(FClock) do 

      try 

      	TThread.Synchronize(nil, procedure 

          begin 

            Label1.Caption := FormatDateTime( 

              'dd.mm.yyyy hh:mm:ss', now); 

          end); 

      finally 

        FClock.Wait(50); 

      end; 

    end); 

end; 

 

procedure TForm1.FormDestroy(Sender: TObject); 

begin 

  FClock.Cancel; 

end; 

 

procedure TForm1.FormShow(Sender: TObject); 

begin 

  FClock.Start; 

end; 

 

end.
Алмат .
Алмат .
1 916
Функция Now()
Marabu 81
Marabu 81
1 390
хах, тут нужно подключать библиотеки
СМ
Саша Макаров
190

Похожие вопросы