bcb2010树形控制界面如何实现

jgjywj007 2010-08-30 04:26:24

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

...全文

157 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

jgjywj007 2010-09-01

打赏
举报

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

AFreshGirl 2010-08-31

打赏
举报

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

jgjywj007 2010-08-31

打赏
举报

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

AFreshGirl 2010-08-31

打赏
举报

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

jgjywj007 2010-08-31

打赏
举报

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

ggt87125 2010-08-30

打赏
举报

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

#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) ;

}

}

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

ggt87125 2010-08-30

打赏
举报



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



#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) ;





     }



   }



}

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

AFreshGirl 2010-08-30

打赏
举报

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

jgjywj007 2010-08-30

打赏
举报

[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 2010-08-30

打赏
举报

菜鸟来给个菜方法



void __fastcall TForm4::TreeView1Change(TObject *Sender, TTreeNode *Node)

{

  //组件隐藏

  switch(TreeView1->Selections->AbsoluteIndex )

  {

	case 0://显示某组件1

	case 1://显示某组件2

	   ...

	default :

  }

}