编写vcl组件,求思路

Question

小弟初次编写组件，
想将label和treeview做成一个组件
即开始时label的caption为'+',treeview不显示,
点击'+'号则label的caption变为'-',treeview显示并加载数据..
请教大侠们提些思路。。
可以实现吗?

Answer 1

在Label的OnClick事件中：
if label1.Caption='+' then
begin
//做展开TreeView的动作
label1.Caption:='-'
end
else
if label1.Caption='-' then
begin
//做收缩TreeView的动作
label1.Caption:='+'
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  L:=Tlabel.Create(owner);
  l.Parent:=treeview1;
  l.Left:=0;
  l.AutoSize:=true;
  l.Top:=0;
  l.Caption:='+';
end;procedure TForm1.TreeView1Click(Sender: TObject);
begin
  l.Caption:='-';
end;

Answer 3

加入数据时,节点的Caption:='-'+节点名

Answer 4

雾水一头
那祖先类应该设为哪个
TCUSTOMLABEL OR TCUSTOMTREEVIEW OR TCOMPONENT?
好象不是很简单哦....

Answer 5

TreeView 不是有+或者-吗?如果要提高效率可以看看Dev的dbTree是怎么做的,它的效率很高的