在Office 2000、Internet Explorer以及Netscape 等软件中，我们可以看到非常漂亮的窗口状态条。特别是Netscape Communicator，在它的窗口状态条中不仅显示有文字，而且还有图形、动画、浮动按钮以及进度条。对于Delphi编程人员来说，为一个窗口创建状态条是非常容易的事情，Delphi所提供的TStatusBar可视化控件可以让我们快速地实现状态条。然而令人遗憾的是用TStatusBar创建的状态条仅能显示文字。本文向大家介绍如何在Delphi程序中创建更为漂亮的StatusBar。
---- 要创建类似Netscape风格的状态条，现有的Delphi控件是无能为力的了。为了让窗口状态条能包含非文本内容，我们需要对现有的TStatusBar控件加以改进。在TStatusBar控件的基础上，我们编写一个新的Delphi控件TStatusBarEx。大家知道，Delphi的TStatusBar控件是不能接受其它控件的，所以我们不可能将一个TImage、TButton等放在TStatusBar上。但是我们接下来要创建的TStatusBarEx控件将可以包容其它的控件。通过TStatusBarEx控件，我们可以使Delphi创建的状态条跟Netscape的状态条一样漂亮，让其可以包含图形、动画、进度条等等。
---- 在Delphi中，一个控件上能否成为其它控件的父控件取决于此控件的ControlStyle属性。ControlStyle属性是集合类型的，如果此集合包含csAcceptsControls元素，则它能接受其它控件；否则，它就不能成为其它控件的父控件。ControlStyle属性只能在控件的构造函数（Constructor）中指定，在程序运行时它是不能被改变的。所以如果希望窗口状态条上面能包含其它控件，我们只需要在继承类中重载TStatusBar控件的Constructor函数，并且让控件的集合属性ControlStyle中包含csAcceptsControls即可。 TStatusBarEx控件的实现
---- 以下是实现TStatusBarEx控件的Delphi源代码，请把这段代码拷贝下来，并且将其保存到文件StatusBarEx.PAS中去。然后用Delphi打开StatusBarEx.PAS文件，之后选择“Component |
关键词： 增强Delphi的TStatusBar控件