📄 013.htm

📁 Delphi书籍--Delphi网上教程
💻 HTM
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--控件应用-->对Borland可视部件的一处改进</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--控件应用 对Borland可视部件的一处改进">
<META NAME="description" CONTENT=" - DELPHI专题--控件应用 - 对Borland可视部件的一处改进">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>

<a href="index.html">返回</a>

<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">


<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>

<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">对Borland可视部件的一处改进</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<span class="tt2">　　Borland 公司的Delphi 和C++ Builder  
中均提供了强大的可视化集成开发环境，从而使得Windows  
下的应用程序开发变得更为简洁和高效。但是，笔者在使用过程中也发现了Borland  
可视部件的一个不足之处。 </span><p align="left"><span class="p2">　　跟踪条作为Win  
32 系统中新增加的通用控件（Common Control）而被应用程序广泛使用（如Windows  
95 中的声卡音量调节程序即为一例）。根据WIN32 API  
参考手册，该控件有多种不同的风格。其中TBS_ENABLESELRANGE  
提供了基本的显示风格控制：当跟踪条具备这一风格时，其显示结果如图1所示；当不具备这一风格时，则显示为图2的样子，与我们在音量调节程序中所见到的样子类似。在Borland  
可视部件库中跟踪条被封装成TTrackBar  
类，其大多数风格均可通过属性窗直接进行修改，唯独无法更改其TBS_ENABLESELRANGE  
风格，因而只能显示成如图１所示的样子，这不能不说是一处缺憾。幸好Borland  
公司提供了扩充部件库的简便方法，使我们能够轻松地解决这一问题。 
</span></p> 
<p align="center"><span class="p2"><br> 
<br> 
</span></p> 
<p align="left"><span class="p2">　　下面给出在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 中存在的类似问题。 </span></p> 
<p><span class="p2">　　MyTBar.H 源程序如下： </span></p> 
<p><span class="p2">　　#ifndef MyTBarH <br> 
　　#define MyTBarH <br> 
　　#include <br>
　　#include <br>
　　#include <br>
　　#include <br>
　　#include </span></p>
<p><span class="p2">　　class TMyTrackBar : public TTrackBar <br> 
　　{ <br>
　　private: <br>
　　bool FEnableSel; <br> 
　　void __fastcall SetEnableSel(bool Value); <br> 
　　protected: <br>
　　void __fastcall CreateParams(TCreateParams&amp; Params); <br> 
　　public: <br>
　　__fastcall TMyTrackBar(TComponent* Owner); <br> 
　　__published: <br>
　　__property bool EnableSelRange = <br> 
　　{read=FEnableSel, write=SetEnableSel}; <br> 
　　}; <br>
　　#endif <br>
　　MyTBar.CPP 源程序如下： <br> 
　　#include <br>
　　#pragma hdrstop <br> 
　　#include &quot;MyTBar.h&quot; <br> 
　　static inline TMyTrackBar *ValidCtrCheck() <br> 
　　{ <br>
　　return new TMyTrackBar(NULL); <br> 
　　} <br>
　　__fastcall TMyTrackBar::TMyTrackBar(TComponent* Owner) <br> 
　　: TTrackBar(Owner) <br> 
　　{ 　　} <br>
　　void __fastcall TMyTrackBar::CreateParams (TCreateParams&amp; Params) 
　　{ <br>
　TTrackBar::CreateParams(Params); <br>
　　if(!FEnableSel) Params.Style &amp;= ~TBS_ENABLE-SELRANGE; <br> 
　　} <br>
　　void __fastcall TMyTrackBar::SetEnableSel(bool Value) <br> 
　　{ <br>
　　if(Value != FEnableSel) <br> 
　　{ <br>
　　FEnableSel = Value; <br> 
　　RecreateWnd(); <br>
　　} 　　} <br>
　　namespace Mytbar <br> 
　　{ <br>
　　void __fastcall Register() <br> 
　　{ <br>
　　TComponentClass classes[1] = {__classid (TMyTrackBar)}; <br> 
　　RegisterComponents(&quot;Samples&quot;, classes, 0); <br> 
　　} <br>
　　} </span></p>
<hr color="#EE9B73" size="1" width="94%">

</TD>

</TR>
</table>
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -