Treeview onclick

[ichbins]

Ich meinte: Eine Treeview gibt einen Baum an. So wie bei einer Festplatte die Ordnerstruktur. Der linke Teil des Windows-Explorers ist auch nur eine Treeview. Da ist z.B. "Die 1983. Datei" auch Definitionssache.

Zum Ausführen der Funktion:

Delphi-Quellcode:

procedure TFRMMain.doNavTreeViewMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
  ANode: TTreeNode;
  R: TRect;
begin
  // Navigator mit Click
  // Doppelte Ausführung verhindern...
  // FTreeViewLocked is Private Field der Unit!
  if FTreeViewLocked then
    Exit;
  FTreeViewLocked := True;
  try
    with TTreeView(Sender) do
    begin
      ANode := GetNodeAt(x, y);
      if Assigned(ANode) and ANode.Selected and Assigned(ANode.Data) then
      begin
        R := ANode.DisplayRect(True);
        // den Klick links oder rechts neben den Text verhindern
        if (x >= R.Left - 16) and (x <= r.Right) then
        begin
          if anode.caption='Ich bin das dritte Item' then
          begin
            showmessgae('Sie haben auf das dritte Item geklickt.');
          end;
        end;  
      end;
    end;
  finally
    Application.ProcessMessages;
    FTreeViewLocked := False;
  end;
end;