擴充Delphi/C++Builder的StatusBar功能

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，再編譯、安裝即可。