如何在状态条里显示系统时间和图标？

Question

我想在屏幕底部的statubar里显示一个图标和公司名称，以及系统的时间，还有一个可以改变颜色的shape控件，可是属性里并没有，我该怎么加入呢？

Answer 1

form1.StatusBar1.SimplePanel:=true;
form1.StatusBar1.SimpleText:=datetimetostr(now);

Answer 2

关于显示图标,就要创建一个image空间,选择statusbar1属性为psOndraw然后动态创建,你知道在statusbar中创建progressbar吗?由于时间关系就不说了,看看书就可以了,不难,
  statusbar1.panels[0].text:=DatetimeToStr(now);
  Statusbar1.panels[1].text:='公司名称';
不懂的话,在说!!