Текущий архив: 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.019 c
