盒子论坛 v2.1

这是一个继承TSpeedButton的一个控件，我添加了一个Label属性，但是在把这个
控件添加到Form时，为什么在Form的任何地方都看不到Label呢？
请高人指点一下！谢谢
unit SpeeLabel;

interface

uses
  SysUtils, Classes, Controls, Buttons, StdCtrls;

type
  TSpeeLabel = class(TSpeedButton)
  private
    FKeyLabel: TLabel;
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent);override;
  published
    { Published declarations }
    property KeyLabel: TLabel read FKeyLabel;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('KTButton', [TSpeeLabel]);
end;

{ TSpeeLabel }

{ TSpeeLabel }

constructor TSpeeLabel.Create(AOwner: TComponent);
begin
  inherited;
  FKeyLabel := TLabel.Create(Self);
  FKeyLabel.SetSubComponent(True);
  FKeyLabel.Parent := Self.Parent;
  FKeyLabel.Visible := True;
end;

end.
----------------------------------------------
-

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2005/3/26 13:21:54

1楼：

Label没有Caption看不见而已吧
设置一下Caption
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

信息

登陆以后才能回复