552
社区成员
发帖
与我相关
我的任务
分享
//---------------------------------------------------------------------------
#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) ;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm4::TreeView1Change(TObject *Sender, TTreeNode *Node)
{
//组件隐藏
switch(TreeView1->Selections->AbsoluteIndex )
{
case 0://显示某组件1
case 1://显示某组件2
...
default :
}
}