📄 对borland可视部件的一处改进.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Welcome to Delphi Tips !</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" href="../tips.css"></head>
<body bgcolor="#D8D0C8" text="#675350">
<div align="left">
<table border="1" cellpadding="0" cellspacing="0" width="579" height="63" bordercolorlight="#784400" bordercolordark="#D8D0C8">
<tr>
<td width="194" height="86"><img src="../images/title.gif" width="340" height="85"></td>
<td width="377" height="86" valign="top"><img src="../images/dong.jpg" width="251" height="85">
</td>
</tr>
</table>
<br>
</div>
<div align="left">
<table border="1" cellpadding="0" cellspacing="0" width="578" height="18" bordercolorlight="#784400" bordercolordark="#CCCCCC" class="p2">
<tr bgcolor="#B0A498">
<td width="574" height="18"> ><a href="../index.htm">DelphiTips首页</a>
> <a href="main.htm">控件应用</a></td>
</tr>
</table>
<br>
<table width="96%" border="1" bordercolorlight="#784400" cellspacing="0" bordercolordark="#D8D0C8">
<tr bgcolor="#B0A498" class="p1">
<td colspan="3">
<div align="center">对Borland可视部件的一处改进</div>
</td>
<td width="12%" class="p2"><<<a href="009.htm">上一篇</a></td>
<td width="13%" class="p2"><a href="011.htm">下一篇</a>>></td>
</tr>
<tr class="p2">
<td colspan="5">
<table width="100%" border="0" class="p2">
<tr>
<td width="3%"> </td>
<td width="94%"><span class="p2"> 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>
<img alt="PIC" src="bcbskill.gif" tppabs="http://www.lhmz.yn.cninfo.net/chenhao/Delphi/bcbskill002.gif" width="153" height="89"><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& 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 "MyTBar.h" <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&
Params) { <br>
TTrackBar::CreateParams(Params); <br>
if(!FEnableSel) Params.Style &= ~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("Samples", classes, 0); <br>
} <br>
} </span>
</td>
<td width="3%"> </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#B0A498" class="p2">
<td height="22" width="61%" colspan="2"> <marquee behavior="alternate">如果你有什么好的资料，可以寄给我哟:)</marquee></td>
<td height="22" width="14%"><a href="../index.htm"><<回到首页</a></td>
<td height="22" width="12%"><<<a href="009.htm">上一篇</a></td>
<td height="22" width="13%"><a href="011.htm">下一篇</a>>></td>
</tr>
</table>
<br>
<br>
<hr size=1 noshade width=500>
<table width="75%" border="0" align="center" class="p2">
<tr>
<td colspan="2"> </td>
<td width="24%">
<table width="95%" border="1" bordercolorlight="#663300" bordercolordark="#CCCCCC" cellspacing="0" class="p2">
<tr>
<td>
<div align="center">Delphi 技巧集</div>
</td>
</tr>
</table>
</td>
<td width="38%"> </td>
</tr>
<tr>
<td width="16%"> </td>
<td colspan="2">Copyright 1999.11 by 东子</td>
<td width="38%"><a href="../jintongbao@188.net">Mail to me!</a></td>
</tr>
<tr>
<td colspan="4">
<div align="center">感谢广州视窗提供主页空间</div>
</td>
</tr>
</table>
<br>
</div><div align="center"><center>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -