|
|
导航: |
论坛 -> 文档资料
斑竹:liumazi,ruralboy |
|
作者: |
|
2003/10/25 19:47:56 |
标题: |
增强Delphi的TStatusBar控件 |
浏览:3850 |
|
加入我的收藏 |
楼主: |
本文向大家介绍如何在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即可。
----------------------------------------------
我爱DELPHI! |
作者: |
cnxxx (我本高手) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/10/25 20:22:25 |
1楼: |
传个演示上来看看。
----------------------------------------------
黑夜中,一眼望去,我就是高手。
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2003/10/26 7:06:07 |
2楼: |
高手,向你学习!
----------------------------------------------
|
|