1:

Treeview.select(Treeview.Items.item[i])					

1:
2:
3:
4:

procedure TForm3.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected <> NIL then
  begin					

1:
2:

if TreeView1.Selected.Level=2 then
    begin					

1:

treeview.select(treeview.items.item[])					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  TempNode: TTreeNode;
begin
    TempNode:= Nod.GetFirstNode; 
    while TempNode <> NIL do     
    begin
      .....
    end;
    TempNode:= TempNode.getNext;               
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

{-------------------------------------------------------------------------------
function:   TVNodeInsert(); overload;
ltz.Aendr.: 19.04.2007
Parameter:  Nod: TTreeNodes               // TTreeView.Items - Liste
            var NeueNode: TTreeNode       // Neuer Knoten zurückgeben
            const strElternKnoten: String // ElternKnoten
            const strKnoten: String       // Knoten der am ElternKnoten kommt
Rueckgabe:  TRUE= Knoten eingetragen FALSE= Knoten nicht eingetragen
Beschr.:    Mit dieser Funktion wird ein neuer Knoten an die richtige Stelle
            im TTreeView eingetragen. Bei dieser Funktion muss mindestens 1
            Knoten schon vorhanden sein. Es wird die Stelle in TTreeView ge-
            sucht die mit der Elternknoten übereinstimmt und der neue Knoten,
            wenn er noch nicht vorhanden ist angehängt.
Aufruf:     TVNodeInsert(MS_TV.Items,  Ebene2, 'Meßstellen', 'EO-Tank');
-------------------------------------------------------------------------------}
function TVNodeInsert (Nod: TTreeNodes; var NeueNode: TTreeNode;
                       const strElternKnoten: String;
                       const strKnoten: String): boolean; overload;
var
  TempNode: TTreeNode;
begin
  result:= FALSE;              // Es ist kein Knoten im Baum eingetragen worden
  TempNode:= Nod.GetFirstNode; // Hier wird der Root-Knoten in TempNode gespeichert
  while TempNode <> NIL do     // Solange wiederholen, bis TempNode = NIL ist
  begin
    If (CompareText(TempNode.Text, StrElternKnoten)=0) then
    begin
      if NOT(IstDoppelt(Nod, strKnoten)) then // Ist der Knoten nicht vorhanden
      begin
        NeueNode:= Nod.AddChild(TempNode,StrKnoten); // Neuer Knoten eintragen
        Result:= TRUE;                          // Es ist ein Knoten eingetragen
      end;
    end;
    TempNode:= TempNode.getNext;                // Nächster Knoten in TempNode
  end;
end;
{-------------------------------------------------------------------------------