有关VCL的问题

Question

我用TPanel继承下来,再加TDBEdit,TButton拼成一个VCL控件,但不知道怎么才能让TDBEdit的属性也像TPanel属性一样显示在属性框中,请高手指教.

Answer 1

TMyPanel = class(TPanel)
private
  fdbEdit: TDBEdit;
published
  property DBEdit: TDBEdit read fdbEdit write fdbEdit; //这样就可以了
end;

Answer 2

还是不行啊，要再放一个TDBEdit空件，并把的TDBEdit的Name值拷到DBEdit属性
可以TDBEdit的属性啊

Answer 3

TMyPanel = class(TPanel)
private
  fdbEdit: TDBEdit;
  function ReadDBValue:TDBEdit;
  procedure SetDBValue(Value:TDBEdit);
published
  property DBEdit: TDBEdit read ReadDBValue write SetDBValue;
end;//以下只是演示
function TMyPanel.ReadDBValue:TDBEdit;
beign
 Result:=fDBedit;
end;procedure TMyPanel.SetDBValue(Value:TDBEdit);
beign
 fDBedit:=Value; 
end;

Answer 4

建议搂住看看LabeledEdit，那个的原理和楼主的要求一样。