Daily Archives: 17.01.2017

Delphi. Убираем программу в трэй

Posted on 17.01.2017 by Stanislav_Panteleev

Posted in Delphi | Comments Off

Простейший способ измерить время

Posted on 17.01.2017 by Stanislav_Panteleev

Добавляем TTImer в программу Фиксируем начальное время и запускаем таймер в OnCreate или на какой-то кнопке

 FStartDateTime:=Now();
 tWorkingTime.Enabled:=True;

1 2	FStartDateTime:=Now(); tWorkingTime.Enabled:=True;

Обработка таймера

procedure TfHTTPServer.tWorkingTimeTimer(Sender: TObject);
var 
  workingTime: TDateTime;
begin
  workingTime := Now - FStartDateTime;
  lTimeOfWorking.Caption := FormatDateTime('hh:mm:ss',WorkingTime);
end;

procedure TfHTTPServer.tWorkingTimeTimer(Sender: TObject);

var

workingTime: TDateTime;

begin

workingTime := Now - FStartDateTime;

lTimeOfWorking.Caption := FormatDateTime('hh:mm:ss',WorkingTime);

end;

Люблю быстрые и простые решения

Posted in Delphi | Comments Off

Daily Archives: 17.01.2017

Delphi. Убираем программу в трэй

Простейший способ измерить время

MY PROJECTS

Recent Posts

Categories