跟踪条作为Win 32 系统中新增加的通用控件（Common Control）而被应用程序广泛使用（如Windows 95 中的声卡音量调节程序即为一例）。根据WIN32 API 参考手册，该控件有多种不同的风格。其中TBS_ENABLESELRANGE 提供了基本的显示风格控制：当跟踪条具备这一风格时，其显示结果如图1所示；当不具备这一风格时，则显示为图2的样子，与我们在音量调节程序中所见到的样子类似。在Borland 可视部件库中跟踪条被封装成TTrackBar 类，其大多数风格均可通过属性窗直接进行修改，唯独无法更改其TBS_ENABLESELRANGE 风格，因而只能显示成如图１所示的样子，这不能不说是一处缺憾。幸好Borland 公司提供了扩充部件库的简便方法，使我们能够轻松地解决这一问题。

　　下面给出在C++ Builder 中解决这一问题的源程序。将下面的源程序输入后，启动C++ Builder，选择Component 菜单的Install 选项，弹出安装部件对话框。再选择Add 按钮，输入C++ 源程序文件名及其完整路径，选择OK。此后，C++ Builder 会重建部件库，并在工具条上产生Samples 部件页，内有TMyTrackBar 部件。TMyTrackBar 部件新增了EnableSelRange 属性：当将其置为FALSE 时，显示如图１所示的风格；当将其置为TRUE 时，则显示如图２所示的风格。由于Delphi 2.0 和3.0 也都存在上述问题，所以若将下面用C 语言编写的源程序用PASCAL 语言改写即可解决Delphi 中存在的类似问题。

　　MyTBar.H 源程序如下：

　　#ifndef MyTBarH
　　#define MyTBarH
　　#include
　　#include
　　#include
　　#include
　　#include

　　class TMyTrackBar : public TTrackBar
　　{
　　private:
　　bool FEnableSel;
　　void __fastcall SetEnableSel(bool Value);
　　protected:
　　void __fastcall CreateParams(TCreateParams& Params);
　　public:
　　__fastcall TMyTrackBar(TComponent* Owner);
　　__published:
　　__property bool EnableSelRange =
　　{read=FEnableSel, write=SetEnableSel};
　　};
　　#endif
　　MyTBar.CPP 源程序如下：
　　#include
　　#pragma hdrstop
　　#include "MyTBar.h"
　　static inline TMyTrackBar *ValidCtrCheck()
　　{
　　return new TMyTrackBar(NULL);
　　}
　　__fastcall TMyTrackBar::TMyTrackBar(TComponent* Owner)
　　: TTrackBar(Owner)
　　{ 　　}
　　void __fastcall TMyTrackBar::CreateParams (TCreateParams& Params) 　　{
　TTrackBar::CreateParams(Params);
　　if(!FEnableSel) Params.Style &= ~TBS_ENABLE-SELRANGE;
　　}
　　void __fastcall TMyTrackBar::SetEnableSel(bool Value)
　　{
　　if(Value != FEnableSel)
　　{
　　FEnableSel = Value;
　　RecreateWnd();
　　} 　　}
　　namespace Mytbar
　　{
　　void __fastcall Register()
　　{
　　TComponentClass classes[1] = {__classid (TMyTrackBar)};
　　RegisterComponents("Samples", classes, 0);
　　}
　　}