Главная страница

Форум: "Основная";
Поиск по всему сайту: 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];



Наверх

   Главная страница

Top.Mail.Ru     Яндекс.Метрика













Память: 0.76 MB
Время: 0.021 c
4-100113
vic_774N
2001-12-03 14:47
2002.01.31
Delphi IDE - а попробуйте-ка послать текст в редактор !!!


1-99937
Artem K.
2002-01-12 13:51
2002.01.31
Добавление TChartSeries во время выполнения программы


1-99954
Yuraz
2002-01-13 19:03
2002.01.31
Помогите! Не могу разобраться, почему в этой проц. печатается менее 6 букв


1-99956
MystiX
2002-01-13 18:02
2002.01.31
Heeelp!!!


4-100109
swr
2001-12-03 15:05
2002.01.31
Как удалить несколько строк в Excel средстами Delphi ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский