扩展Delphi/C++Builder的StatusBar功能

最新推荐文章于 2020-07-24 20:01:54 发布

原创最新推荐文章于 2020-07-24 20:01:54 发布 · 2.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#扩展 #delphi #constructor #forms #class #c

Windows 同时被 2 个专栏收录

5 篇文章

订阅专栏

C/C++类

4 篇文章

订阅专栏

本文提供了一种在Delphi6/7及c++Builder6/2007环境下扩展StatusBar控件的方法，通过修改使其能够承载更多类型的控件，如Edit框、进度条等。

Delphi6/7，c++ Builder6/2007下的StatusBar控件的功能有限，通过该扩展，可以在StatusBar上加入其他的控件，如：Edit框，进度条等。

该代码已经使用若干年，现在整理出来，方便有需要的人。

//----------------Start of StatusBarEx --------------------------

//文件名：StatusBarEx.pas
unit StatusBarEx;

interface

uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls;

type
//定义TStatusBarEx控件
TStatusBarEx = class(TStatusBar)
private
  { Private declarations }
protected
  { Protected declarations }
public
  { Public declarations }
  constructor Create(AOwner: TComponent); override;
published
  { Published declarations }
end;

procedure Register;

implementation

constructor TStatusBarEx.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  {为了让TStatusBarEx控件能接受其它控件，必须
  使ControlStyle属性（集合类型）包含csAcceptsControls元素}
  ControlStyle:= ControlStyle + [csAcceptsControls];
end;

procedure Register;
begin
//将TStatusBarEx控件注册到Delphi /C++ Builder 控件板的TaosVCL页上
  RegisterComponents('TaosVCL',[TStatusBarEx]);
end;

end.

//---------End of File---------------------

【安装方法】
1、将以上代码复制并另存为StatusBarEx.pas，可把此文件放到Delphi/C++ Builder安装目录下的Projects子目录下。
2、在Delphi/C++ Builder中打开lib/dclusr.dpk(.bpk)，向其中加入StatusbarEx.pas，再编译、安装即可。