CSDN博客

img zhlfdm

让Delphi的标准TStatusBar状态栏控件具有容器功能

发表于2008/9/29 11:54:00  455人阅读

Delphi中的标准TStatusBar没有再它上面添加控件的功能,继承它,创建一个新的控件,拥有容器功能。
新的StatusBar可以在它上面添加如进度条等其他控件,拥有容器功能。

====================================
unit ControlStatusBar;

interface

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

type
  TControlStatusBar = class(TStatusBar)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(AOwner: TComponent); override;   
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('whj', [TControlStatusBar]);
end;

{ TControlStatusBar }

constructor TControlStatusBar.create(AOwner: TComponent);
begin
  inherited;
  controlstyle:=controlstyle+[csAcceptsControls];  //让它具有容器功能
end;

end.

0 0

相关博文

我的热门文章

img
取 消
img