| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Есть label1,нужно что в label1.caption было текущее время
Dor © (2003-01-19 11:58:00)Есть label1,нужно что в label1.caption было текущее время
Microsoft (2003-01-19 12:12:00) [1]А если хочется узнать время работы 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;
Романов Р.В. (2003-01-19 12:06:00) [2]Положи на форму TTimer и в OnTimer выводи время
Kair (2003-01-19 12:05:00) [3]procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label11.Caption:=TimeToStr(time);
end;
| |
