Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Компонент Label который показывает системное время   Найти похожие ветки 

 
Gilbert   (2002-01-14 08:44) [0]

Нужно создать компонент на базе TLabel который показывал бы системное время и желательно в отдельном потоке.
Никто не подскажет как мне это реализовать?


 
Bakca   (2002-01-14 09:25) [1]

В библиотеке RX Lib -> RxClock, может то что нужно?


 
panov ©   (2002-01-14 10:09) [2]

Ну почему обязательно компоненты?
Можно, например, так:

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.


 
KaPaT   (2002-01-14 10:45) [3]

Я раньше делал наподобе:
Label1.Caption:=IntToStr(...) Вот непомню что в скобках. Помойму time!


 
KaPaT   (2002-01-14 11:00) [4]

Вспомнил!
А вот если вот так:
Кидаешь timer на форму и пишишь
Label1.Caption:=TimeToStr(time)


 
SuperMama   (2002-01-14 11:20) [5]

>KaPaT
В скобках (Now)


 
KaPat   (2002-01-14 23:19) [6]

>SuperMama
это приколо такой про now?


 
olban ©   (2002-01-15 08:47) [7]

Now - текущие дата и время
Date - текущая дата
Time - текущее время


 
Андрей Сенченко ©   (2002-01-15 12:12) [8]

Если использовать Now DATE TIME то безусловно не IntToSr а FormatDateTime(маска,что форматируем)



Страницы: 1 вся ветка

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.007 c
3-99863
Andrey196
2001-12-26 15:23
2002.01.31
Ошибка ненайден индекс, хотя индекс имеется, что делать?? Помогите!!!


3-99877
Олег Лаукарт
2001-12-25 11:07
2002.01.31
Query для каждого потока...


1-99943
Ghost!
2002-01-11 13:19
2002.01.31
Программа для отправляения SMS на мобильный


3-99920
IronHawk
2001-12-26 10:42
2002.01.31
Как сохранить


1-99981
saviola
2002-01-14 15:42
2002.01.31
Шрифты в NT.4.0