delphi - 如何在Delphi 2010中重命名状态栏面板

Question

我刚刚向StatusBar1添加了一个新面板，它称为5-TStatusPanel。我想给它起一个不同的名字，但我不记得该怎么做。



我想将5-TStatusPanel重命名为5-GripArea。从图像中可以看到，我之前已经完成了此操作（请参阅Num，Caps，AM / PM），但是我不记得我是如何做到的。太烂了。

Answer 1

只需更改Text的TStatusPanel属性。这就是状态面板编辑器中显示的内容。当然，这将使文本在面板中可见！通常，在代码中，您使用StatusBar1.Panels[PanelIndex]数组访问状态面板。 PanelIndex是面板的从零开始的索引。我总是声明诸如

STATUS_FILE_POSITION = 0;
STATUS_FILE_SAVED = 1;
STATUS_LONG_TEXT = 2;
STATUS_ZOOM_CONTROL = 3;

并用它们记住面板。 （上面的代码来自我的文本编辑器。）

例如，我可以这样做

StatusBar.Panels[STATUS_FILE_SAVED].Text := 'Modified';