Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: TTreeView Frage

    Delphi
    by DeddyH, 1. Dez 2010
  Doch, OnDblClick geht.
  procedure TForm1.TreeView1DblClick(Sender: TObject);
  var Item: TTreeNode;
  P: TPoint;
  begin
  //Maus- in Clientkoordinaten umrechnen
  P := Treeview1.ScreenToClient(Mouse.CursorPos);
  //Knoten an dieser Stelle ermitteln
  Item := Treeview1.GetNodeAt(P.X, P.Y);
  //wenn einer da -> ausgeben
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: TTreeView Frage

    Delphi
    by DeddyH, 30. Nov 2010
  Irgendwie sieht mir das zu kompliziert aus. Ginge das nicht auch einfach so (aus dem Kopf getippt, daher ungetestet)?
  procedure TForm1.ShowDirectory(_Tree: TTreeView; const _sVerzeichnis: string; _KnotenRoot: TTreeNode);
  
  {$region 'Kommentar ShowDirectory( _Tree:TTreeView, _sVerzeichnis:string, _Eintrag:TTreeNode, )'}
  {*
  Beschreibung : Procedur baut aus einer Pfadangabe einen TreeView...