关于构造函数的问题 ( 积分: 300 )

  • 主题发起人 主题发起人 大苹果
  • 开始时间 开始时间

大苹果

Unregistered / Unconfirmed
GUEST, unregistred user!
unit uMyTest;

interface
uses
Classes,SysUtils,StdCtrls, Controls,ExtCtrls ;
type
TDQTest = class(TPanel)
private
aFilterItem: TComboBox;
protected
public
constructor create(aOwner: TComponent)
override;
destructor destroy
override;
published

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Standard', [TDQTest]);
end;

{ TAtQuickFilter }

constructor TDQTest.create(aOwner: TComponent);
begin
inherited Create(aOwner);
aFilterItem := TComboBox.Create(aOwner);
aFilterItem.Parent := Self;
aFilterItem.Align := alLeft;
end;

destructor TDQTest.destroy;
begin
aFilterItem.Free;
inherited;
end;
在设计时panel内只一个cbb,运行时就变两了!
还只在D2006里面出现!D7里面不出现
 
神奇,代码没看出来为啥,没用过D2006
 
没懂楼主意思
 
楼主你是怎么用这个类的啊
 
注册为控件使用
 
多人接受答案了。
 
后退
顶部