菜鸟问题！！！！

Question

Delphi没有这样的控件，不过网上这种控件应该很多。你可以找找。
或者自己写一个。

Answer 1

自己写一个就是啦嘛!!
反正很simplek啦!!

Answer 2

好象没有,不过你可以找到类似的控件,或在statusbar上加上一些标准控件来实现你的要求.

Answer 3

自己写！
显示时间：用Timer组件，Interval设为1000（1秒），然后在其OnTimer事件中写StatusBar1.Panels[x].Text := TimeToStr(Time); // x表示显示时间的那一格的序号
显示Locks键的状态，最好是用键盘Hook，不过难度稍大。可以简化，利用上面的Timer组件，在同一个OnTimer的事件中写：
if (GetKeyState(VK_NUM_LOCK) and 1)=1 then
  StatusBar1.Panels[y].Text := 'NUM'
else
  StatusBar1.Panels[y].Text := ''; // y表示显示NUM的那一格的序号if (GetKeyState(VK_CAPS_LOCK) and 1)=1 then
  StatusBar1.Panels[z].Text := 'CAPS'
else
  StatusBar1.Panels[z].Text := ''; // z表示显示CAPS的那一格的序号依此类推