Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Компонент Label который показывает системное время [D3, D4, D5, D6, Win95/98]

Gilbert © (2002-01-14 08:44:00)
Нужно создать компонент на базе TLabel который показывал бы системное время и желательно в отдельном потоке.
Никто не подскажет как мне это реализовать?

Андрей Сенченко (2002-01-15 12:12:00) [1]
Если использовать Now DATE TIME то безусловно не IntToSr а FormatDateTime(маска,что форматируем)

olban (2002-01-15 08:47:00) [2]
Now - текущие дата и время
Date - текущая дата
Time - текущее время

KaPat (2002-01-14 23:19:00) [3]
>SuperMama
это приколо такой про now?

SuperMama (2002-01-14 11:20:00) [4]
>KaPaT
В скобках (Now)

KaPaT (2002-01-14 11:00:00) [5]
Вспомнил!
А вот если вот так:
Кидаешь timer на форму и пишишь
Label1.Caption:=TimeToStr(time)

KaPaT (2002-01-14 10:45:00) [6]
Я раньше делал наподобе:
Label1.Caption:=IntToStr(...) Вот непомню что в скобках. Помойму time!

panov (2002-01-14 10:09:00) [7]
Ну почему обязательно компоненты?
Можно, например, так:

unit Unit2;

interface

uses
Classes, Sysutils, Windows,
Unit1;

type
TMyClock = class(TThread)
protected
procedure Execute; override;
procedure Update;
end;

implementation

procedure TMyClock.Update;
begin
Form1.Label1.Caption := FormatDateTime("dd.mm.yyyy hh.nn.ss",now);
end;

procedure TMyClock.Execute;
begin
while not Terminated do
begin
Synchronize(Update);
Sleep(1000);
end;

end;

end.

Bakca (2002-01-14 09:25:00) [8]
В библиотеке RX Lib -> RxClock, может то что нужно?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »