大
大苹果
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里面不出现
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里面不出现