用TTreeview实现的一个通讯录的组别设置，

 
 回复人： Adayuer([±0℃]) ( ) 信誉：96  2002-04-01 09:40:17Z  得分:0
 
 
 
看看我的一段代码吧。
用TTreeview实现的一个通讯录的组别设置，
联系人用Tlistview。
/---------------------------------------------------------------------------
void __fastcall TTBF::N5Click(TObject *Sender)
{
  THitTests HT;
  TTreeNode *Node1;
  if (mouse_Sender&&mouse_Sender->ClassNameIs("TTreeView"))
  {
    TTreeView *pTV = (TTreeView *)mouse_Sender;
    HT = pTV->GetHitTestInfoAt(mouse_x,mouse_y);
    if (HT.Contains(htOnItem))
      Node1=pTV->GetNodeAt(mouse_x,mouse_y);
      if(Node1->Text=="全部")
      {
        MessageDlg("///"全部///"是系统组，不能删除!", mtWarning, TMsgDlgButtons() << mbYes, 0);
      }
      else
        pTV->Items->Delete(Node1);

  }
}
//---------------------------------------------------------------------------
void __fastcall TTBF::GroupTVMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    mouse_x=X;
    mouse_y=Y;
    mouse_Sender=Sender;
}
//---------------------------------------------------------------------------
void __fastcall TTBF::N3Click(TObject *Sender)
{
  THitTests HT;
  TTreeNode *Node1;
  if (mouse_Sender&&mouse_Sender->ClassNameIs("TTreeView"))
  {
    TTreeView *pTV = (TTreeView *)mouse_Sender;
    HT = pTV->GetHitTestInfoAt(mouse_x,mouse_y);
    if (HT.Contains(htOnItem))
    {
        Node1 = pTV->GetNodeAt(mouse_x,mouse_y);
        if((Node1->Level==0)&&(Node1->Text=="全部"))
        {
            MessageDlg("/"全部/"是系统组，不能新建子键！", mtWarning, TMsgDlgButtons() << mbYes, 0);
            return;
        }
        if(Node1->Level==1)
        {
            MessageDlg("只能建立两级组别！", mtWarning, TMsgDlgButtons() << mbYes, 0);
            return;
        }
        else
        {
            TTreeNode *fNode;
            String S="新组别";
            fNode=Node1->getFirstChild();
            if(fNode)
                while(!NoSameName(fNode,S)){;};
            pTV->Items->AddChild(Node1,S);
        }
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TTBF::N2Click(TObject *Sender)
{
  THitTests HT;
  TTreeNode *Node1;
  if (mouse_Sender&&mouse_Sender->ClassNameIs("TTreeView"))
  {
    TTreeView *pTV = (TTreeView *)mouse_Sender;
    HT = pTV->GetHitTestInfoAt(mouse_x,mouse_y);
    if (HT.Contains(htOnItem))
    {
        Node1 = pTV->GetNodeAt(mouse_x,mouse_y);
        String S="新组别";
        while(!NoSameName(Node1,S)){;};
        pTV->Items->Add(Node1,S);
    }
  }
}
//---------------------------------------------------------------------------

void __fastcall TTBF::N4Click(TObject *Sender)
{
  THitTests HT;
  TTreeNode *Node1;
  if (mouse_Sender&&mouse_Sender->ClassNameIs("TTreeView"))
  {
    TTreeView *pTV = (TTreeView *)mouse_Sender;
    HT = pTV->GetHitTestInfoAt(mouse_x,mouse_y);
    if (HT.Contains(htOnItem))
    {
        Node1=pTV->GetNodeAt(mouse_x,mouse_y);
        if((Node1->Level==0)&&(Node1->Text=="全部"))
        {
            MessageDlg("/"全部/"是系统组，不能更名！", mtWarning, TMsgDlgButtons() << mbYes, 0);
        }
        else
            Node1->EditText();
    }
  }

}
//---------------------------------------------------------------------------
void __fastcall TTBF::GroupTVClick(TObject *Sender)
{
/*    THitTests HT;
    TTreeNode *Node1;
    if (Sender->ClassNameIs("TTreeView"))
    {
      TTreeView *pTV = (TTreeView *)Sender;
      HT = pTV->GetHitTestInfoAt(mouse_x,mouse_y);
      if (HT.Contains(htOnItem))
      {
          Node1 = pTV->GetNodeAt(mouse_x,mouse_y);
          SB->SimpleText="AbsoluteIndex:"+IntToStr(Node1->AbsoluteIndex)+"/tIndex:"+IntToStr(Node1->Index)+"/tText["+Node1->Text+"]";
      }
    }
*/   
}
//---------------------------------------------------------------------------

void __fastcall TTBF::GroupTVChange(TObject *Sender, TTreeNode *Node)
{
//    SB->SimpleText="Count:"+IntToStr(Node->Count)+"  AbsoluteIndex:"+IntToStr(Node->AbsoluteIndex)+"  Index:"+IntToStr(Node->Index)+"  Text["+Node->Text+"]";
    TListItem *pItem;
    String tmp;
    TBLV->Items->Clear();
    if((Node->Text=="全部"&&Node->Level==0))
    {
        for (int i = 0; i < M->tblist->Count; i++)
        {
            pItem = TBLV->Items->Add();
            tmp=((TelItem*)(M->tblist->Items[i]))->name;
            pItem->Caption = tmp;
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->nick));
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->phone));
            pItem->SubItems->Add(String((((TelItem*)(M->tblist->Items[i]))->type==0)?"英文":"中文"));
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->memo));
        }
        return;
    }
    else if(Node->Level==0)
    {
        for (int i = 0; i < M->tblist->Count; i++)
        {
            if(Node->Text!=String(((TelItem*)(M->tblist->Items[i]))->group))
                continue;
            pItem = TBLV->Items->Add();
            tmp=((TelItem*)(M->tblist->Items[i]))->name;
            pItem->Caption = tmp;
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->nick));
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->phone));
            pItem->SubItems->Add(String((((TelItem*)(M->tblist->Items[i]))->type==0)?"英文":"中文"));
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->memo));
        }
        return;
    }
    else if(Node->Level==1)
    {
        TTreeNode *pNode=Node->Parent;
        for (int i = 0; i < M->tblist->Count; i++)
        {
            if((Node->Text!=String(((TelItem*)(M->tblist->Items[i]))->subgroup))||(pNode->Text!=String(((TelItem*)(M->tblist->Items[i]))->group)))
                continue;
            pItem = TBLV->Items->Add();
            tmp=((TelItem*)(M->tblist->Items[i]))->name;
            pItem->Caption = tmp;
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->nick));
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->phone));
            pItem->SubItems->Add(String((((TelItem*)(M->tblist->Items[i]))->type==0)?"英文":"中文"));
            pItem->SubItems->Add(String(((TelItem*)(M->tblist->Items[i]))->memo));
        }
        return;
    }
}
//---------------------------------------------------------------------------

void __fastcall TTBF::GroupTVEditing(TObject *Sender, TTreeNode *Node,
      bool &AllowEdit)
{
    if((Node->Level==0)&&(Node->Text=="全部"))
        AllowEdit=false;
    else
        oldtext=Node->Text;
}