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

Вниз

Есть label1,нужно что в label1.caption было текущее время   Найти похожие ветки 

 
Dor ©   (2003-01-19 11:58) [0]

Есть label1,нужно что в label1.caption было текущее время


 
Kair ©   (2003-01-19 12:05) [1]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label11.Caption:=TimeToStr(time);
end;


 
Романов Р.В. ©   (2003-01-19 12:06) [2]

Положи на форму TTimer и в OnTimer выводи время


 
Microsoft ©   (2003-01-19 12:12) [3]

А если хочется узнать время работы Windows то
procedure TForm1.Timer1Timer(Sender: TObject);
var
t: integer;
begin
t := GetTickCount;
Form1.Caption := "Windows работает уже " +
IntToStr(t div 60000) + " мин " +
IntToStr((t mod 60000) div 1000) + " сек " +
IntToStr(t mod 1000) + " мсек";
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
1-86900
Uncle Archi
2003-01-14 22:33
2003.01.27
BIOS


1-86854
johny
2003-01-16 10:31
2003.01.27
Совмещение кода C++ & Delphi в однов проекте


14-87147
Slayer
2003-01-10 13:36
2003.01.27
DelphiX


1-86931
Hopkins
2003-01-12 17:46
2003.01.27
Как из Delphi вносить изменения в окнах апплетов (Св-ва обозр.)?


1-86904
Danik
2003-01-16 13:17
2003.01.27
Про Radiogroup