Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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(маска,что форматируем)



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

Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.005 c
14-100060
123sss
2001-12-07 02:34
2002.01.31
О пиве, и проч.


4-100116
Miwa
2001-11-30 16:25
2002.01.31
Вывод сообщения


14-100057
Дремучий
2001-12-10 21:25
2002.01.31
Тесты!


1-99997
Dmitriy_R
2002-01-08 14:40
2002.01.31
Подскажите как решить эту задачу с вытаскиванием из строки куска текста.


6-100031
krimer
2001-11-08 13:50
2002.01.31
как проследить события для TSERVERSOCKET в консольном приложении?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский