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

转载 2008年09月29日 11:54:00

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.

Delphi控制编辑类控件不能粘贴

在一些C/S软件和登录网站输入账号密码时经常只能进行输入,而不让用户直接粘贴,防止上次用户登录账号没清除,下一个用户直接粘贴该账号而导致账号信息泄露,刚好在公司开发中要实现该功能,下面记录下在Delp...
  • zhenghui1
  • zhenghui1
  • 2013年02月02日 17:56
  • 2437

ALV工具栏对象GUI Status与GUI Title的创建方法

GUI Status与GUI Title用于自定义工具栏按钮及Report程序标题栏显示内容,可以通过SE81或直接在SE38中展开对象列表进行相关操作。如下图所示为ABAP编辑器中展开,点击:或者按...
  • Sarah_zheng
  • Sarah_zheng
  • 2013年11月24日 12:13
  • 2277

Winform控件之菜单控件,工具栏控件和状态栏控件

菜单是用户获取应用程序中主要功能和实用程序的主要途径,如新建文件,打开文件等,这就需要用到菜单控件(MenuStrip)。工具栏另一种获取应用程序主要功能的常用方法,比起菜单要直观,这就需要用到工具栏...
  • erlian1992
  • erlian1992
  • 2015年05月27日 17:31
  • 5427

增强Delphi的TStatusBar控件

  • 2007年08月31日 15:50
  • 3KB
  • 下载

[Delphi] 标准控件(Memo组件)

Edit和MaskEdit组件都只能编辑单行文本,Delphi的Memo组件提供了多行文本的编辑功能。下面解释Memo组件常用的属性。属性说明 Lines这是Memo组件最常用,也是最有用的属性,它用...
  • zhao_jian_feng
  • zhao_jian_feng
  • 2011年06月27日 17:00
  • 6666

基于AJAX的电子邮件处理、标准服务控件、SQL Server XML的功能

  • 2011年07月26日 15:02
  • 1.86MB
  • 下载

c#标准控件 属性及功能

  • 2011年08月08日 20:06
  • 117KB
  • 下载

必备的功能强大的数据控件Ehlib2010(delphi2010)

  • 2010年03月06日 16:14
  • 934KB
  • 下载

delphi XE6调用android标准功能

调用的例子方法: uses   Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android, Androidapi.JNI.Ne...
  • slhfine
  • slhfine
  • 2015年06月15日 11:13
  • 563

窗体和常用控件之菜单工具栏状态栏

  • 2015年09月11日 12:54
  • 150KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:让Delphi的标准TStatusBar状态栏控件具有容器功能
举报原因:
原因补充:

(最多只允许输入30个字)