Как вывести в строке состояния время работы приложения

[a_n_n_a]

Здравствуйте, подскажите, пожалуйста, как запихать в строку состояния время работы приложения?=) (чтобы время шло по принципу сукундомера)

[Kotofff]

Строка состояния уже создана ?
Если нет : ложим на форму компонент StatusBar из палитры Win32, жмем в его свойствах (в Инспекторе объекта) кнопку Panels и добавляем панель с типом psText. В самой программе (предварительно положив компонент Timer из палитры System на форму) :

procedure TForm1.FormCreate(Sender: TObject);
begin
  startTime := Now; // startTime - глобальная переменная типа DateTime - запомнили когда программа запустилась
end;
// тик нашего таймера 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  DeltaTime:TDateTime;
begin
  DeltaTime := Now - startTime;
  StatusBar1.Panels[0].Text := TimeToStr(DeltaTime); // выводим разницу между временем запуска проги и текущим временем
end;

[a_n_n_a]

СПАСИБО ОГРОМНОЕ, ВСЕ РАБОТАЕТ=))))))))

[blackstersl]

а можно было всё тоже самое ток проще: берёшь таймер, кликаешь 2 раза, появляется обработчик: Вот код

procedure TForm1.Timer2Timer(Sender: TObject);
begin
sstatusbar1.Panels[1].Text := Timetostr(time);//время
sstatusbar1.Panels[2].Text := datetostr(date);//дата 
end;

[Kotofff]

Можно, но вопрос то был в выводе времени работы программы ...

[mihali4]

Давайте осмысленные названия создаваемой теме.
Не стоит нарушать правила раздела.
Буду просто молча закрывать.