bcb2010树形控制界面如何实现

[jgjywj007]

界面左边使用树形控件，点击每个子项，右边窗口显示相关内容；
这个怎么做，高人请指教。本人刚开始用bcb不是很熟...

[周药师]

Program Files\Borland\CBuilder6\Examples\CustomDraw
CB6 安装目录下的TreeView例子 同样适用于2010
根据点击节点 获取该节点的内容或者索引 然后对应的去改变右边显示的内容

[AFreshGirl]

菜鸟来给个菜方法

void __fastcall TForm4::TreeView1Change(TObject *Sender, TTreeNode *Node)
{
  //组件隐藏
  switch(TreeView1->Selections->AbsoluteIndex )
  {
	case 0://显示某组件1
	case 1://显示某组件2
	   ...
	default :
  }
}

[jgjywj007]

[Quote=引用 2 楼 liqiac 的回复:]
菜鸟来给个菜方法

C/C++ code

void __fastcall TForm4::TreeView1Change(TObject *Sender, TTreeNode *Node)
{
//组件隐藏
switch(TreeView1->Selections->AbsoluteIndex )
{
case 0://显示某组件1
case 1:……
[/Quote]
//显示某组件指的是什么，能让它显示在界面右侧么？

[AFreshGirl]

某组件就是指你要显示的组件啊，你把它们放在界面右侧，然后控制它们的visible属性

[ggt87125]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;

 typedef struct MyRec
{
  AnsiString FName ,FModuleNo;

} TMyRec;

//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
	: TForm(Owner)
{


}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormShow(TObject *Sender)
{
   //
   TTreeNode *rNode, *mNode ;
   tv1->Items->Clear();

   for(int i =0 ; i <  10 ; i ++)
   {

		rNode= tv1->Items->Add(tv1->Selected,"TreeNode"+IntToStr(i));
		 //rNode->ImageIndex = 3;

		for(int j = 0 ; j<5 ; j++)
		{

		   mNode=tv1->Items->AddChild(rNode, "TreemNode"+IntToStr(j));
		   //mNode->ImageIndex=3;

			TMyRec  *MyRecPtr = new TMyRec;
			MyRecPtr->FName = "Name"+IntToStr(j);
			MyRecPtr->FModuleNo = "F00" +IntToStr(j)  ;
			mNode->Data = MyRecPtr;


		}


   }

   tv1->OnDblClick = tv1DblClick;


}
//---------------------------------------------------------------------------

void __fastcall TForm3::tv1DblClick(TObject *Sender)
{
   //
   TTreeView *tmpTree=(TTreeView *)Sender;

   if(tmpTree->Selected->Level == 1)
   {
	AnsiString sFMoNo,sFname;
    if(tv1->Selected->Data != NULL)
	{
	   TMyRec *Tr = (TMyRec*)(tv1->Selected->Data) ;
	   sFMoNo =  Tr->FModuleNo ;
	   sFname  =  Tr->FName ;

           //这里触发事件 把键值 写入 TMemo
	   mmo1->Lines->Add(sFMoNo+" - "+sFname) ;


     }

   }

}
//---------------------------------------------------------------------------

[ggt87125]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;

typedef struct MyRec
{
AnsiString FName ,FModuleNo;

} TMyRec;

//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{


}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormShow(TObject *Sender)
{
//
TTreeNode *rNode, *mNode ;
tv1->Items->Clear();

for(int i =0 ; i < 10 ; i ++)
{

rNode= tv1->Items->Add(tv1->Selected,"TreeNode"+IntToStr(i));
//rNode->ImageIndex = 3;

for(int j = 0 ; j<5 ; j++)
{

mNode=tv1->Items->AddChild(rNode, "TreemNode"+IntToStr(j));
//mNode->ImageIndex=3;

TMyRec *MyRecPtr = new TMyRec;
MyRecPtr->FName = "Name"+IntToStr(j);
MyRecPtr->FModuleNo = "F00" +IntToStr(j) ;
mNode->Data = MyRecPtr;


}


}

tv1->OnDblClick = tv1DblClick;


}
//---------------------------------------------------------------------------

void __fastcall TForm3::tv1DblClick(TObject *Sender)
{
//
TTreeView *tmpTree=(TTreeView *)Sender;

if(tmpTree->Selected->Level == 1)
{
AnsiString sFMoNo,sFname;
if(tv1->Selected->Data != NULL)
{
TMyRec *Tr = (TMyRec*)(tv1->Selected->Data) ;
sFMoNo = Tr->FModuleNo ;
sFname = Tr->FName ;


mmo1->Lines->Add(sFMoNo+" - "+sFname) ;


}

}

}
//---------------------------------------------------------------------------

[jgjywj007]

[Quote=引用 8 楼 liqiac 的回复:]
你可以放到Panel里，然后只要控制Panel的Visible属性即可。
[/Quote]
switch(TreeView1->Selections->AbsoluteIndex )
这句运行不过去；
发现一个问题，最大化窗口后，控件无法适应.....
..

[AFreshGirl]

对不起，是我搞错了，应该是TreeView1->Selected->AbsoluteIndex
设置控件的Align属性为alLeft、alRight等就能自适应窗口了，只要Align不是alNone,alCustom就行，自己去摸索一下吧

[jgjywj007]

[Quote=引用 4 楼 liqiac 的回复:]
某组件就是指你要显示的组件啊，你把它们放在界面右侧，然后控制它们的visible属性
[/Quote]
如果包含多个组件，比如两个按钮，连个文本框；是单独对每个组件进行操作，还是通过什么方式将这些组件包含在一个容器控件内？

[AFreshGirl]

你可以放到Panel里，然后只要控制Panel的Visible属性即可。

[jgjywj007]

总结：
1、放置treeview组件，Align属性设置为alleft或alright;
2、放置多个panel面板，Align属性设置为alclient；（可以放置image及label组件于面板实现美化效果）；visible属性可设置为false;
3、设置treeview组件的onchange事件，请参见liqiac大侠的留言。
以上，实现功能.