我有一個TreeView結構如下, A-- ------A1 ------A2 B-- ------B1 ------B2 ------B3 另外有一個ListCtrl放了A1,A2,B1,B2,B3 請問當我任按一個ListCtrl裡的item時, 要如何使TreeView裡該項目自動被選取到? 如果該Parent node 是合起來的, 要先將他展開再選取. 謝謝 !!

Hi cc12345,    試試看並改一下以下的程式碼，在 D7 中可以 Work，只是不知是否在 BCB 中是否也一樣？

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    begin
      if TreeView1.Items.Item[i].Text = TListBox(Sender).Items.Strings[TListBox(Sender).ItemIndex] then
        begin
          TreeView1.Select(TreeView1.Items.Item[i]);
          TreeView1.SetFocus;
          Exit;
        end;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi Fishman,    在網上看到資料發現可以這樣寫.. 應該是一樣的意思..    void TMyTreeView::ToItem( AnsiString tabCaption ) {   TTreeNodes *pItems = Items;   int index = 0;   while( index < pItems->Count )   {     if( pItems->Item[index]->Text == tabCaption )     {       pItems->Item[index]->Selected = true;       break;     }     index++;   } }    Thanks.    

引言: Hi cc12345, 試試看並改一下以下的程式碼，在 D7 中可以 Work，只是不知是否在 BCB 中是否也一樣？

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    begin
      if TreeView1.Items.Item[i].Text = TListBox(Sender).Items.Strings[TListBox(Sender).ItemIndex] then
        begin
          TreeView1.Select(TreeView1.Items.Item[i]);
          TreeView1.SetFocus;
          Exit;
        end;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica">