Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Вниз
Компонент 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(маска,что форматируем)
Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.73 MB
Время: 0.017 c
