Как поместить время и дату в statusbar?

[Proxx-asb]

Подскажите как поместить в строку состояния время и дату?

[Neeter]

procedure TForm1.FormCreate(Sender: TObject);
begin
 StatusBar1.Panels[0].Text := DateTimeToStr(Date + Time);
end;

Еще можете создать Timer и в событии onTimer прописать туже строчку. Это чтобы обновлялось все время.

[VaBank]

А еще можно вот так вот:

procedure TForm1.FormCreate(Sender: TObject);
begin
 StatusBar1.Panels[0].Text := FormatDateTime('dd.mm.yyyy', Date);
 StatusBar1.Panels[1].Text := FormatDateTime('hh.mm.ss', Time);
end;

[Proxx-asb]

Спасибо большое! но есть одно но... При запуске вылазит ошибка в окне, написано следующее:"project <имя проекта> raised exception class ElistError with message "List index out of bounds (0)". Process stoped". Что эта ошибка может означать!?

[Showy]

Вы не пробовали изучать свойства компонента? У него есть свойство Panels, дальше думаю разберётесь.

[Proxx-asb]

Все разобрался, спасибо!

[uberchel]

Легче всего так:

StatusBar1.Panels[0].Text:= DateTimeToStr(now);

[Neeter]

Тогда придется у StatusBar'а выставить свойство SimplePanel(или SimpleText) в true
И вообще потом будет неудобно делать другие записи в StatusBar'е

[uberchel]

Сообщение от Neeter

Тогда придется у StatusBar'а выставить свойство SimplePanel(или SimpleText) в true
И вообще потом будет неудобно делать другие записи в StatusBar'е

Netter! здаров, и кстати ты попробуй сначало , и увидишь, что SimplePanel - вообще делать не нужно =), а SimpleText - не boolean а string;

[Neeter]

Привет, я сейчас не при делфи, просто вспомнить так просто сложно.
Но что самое главное

вообще потом будет неудобно делать другие записи в StatusBar'е