In einem TreeView einen Knoten erstellen

[Delbor]

Hi Redeemer

Ich sehe gerade, dass die Methode Ordnererstellen nicht mehr der Aktualität entspricht. Zur Zeit sieht die so aus:

Delphi-Quellcode:

procedure TOpenFileFrame.Ordnererstellen1Click(Sender: TObject);
  var Node: TTreeNode;  LIsdirectory: Boolean; NameRec: PNameRec;
      LDirectoryPath, LCaption, LRealName, X,Y: String;
begin
  if FPopUpNode <> nil then
  begin
    LRealName := PNameRec(FPopUpNode.Data)^.RealName;     //PNameRec(FSelectedNode.Data)^.RealName
    LIsdirectory := PNameRec(FPopUpNode.Data)^.IsDirectory;
    LCaption:= PNameRec(FPopUpNode.Data)^.Caption;
    LDirectoryPath := FPopUpPath + 'Neuer Ordner';

  ShowMessage('FSelectedNode := ' + FSelectedNode.Text +sLineBreak+
              'FPopUpNode := ' + FPopUpNode.Text +sLineBreak+
              'LRealName := ' + LRealName +sLineBreak+
              'LDirectoryPath := ' + LDirectoryPath);
  end;
  if LIsdirectory then
  begin
    Node := TVFilesExplorer.Items.AddChildFirst(FPopUpNode, 'Neu');
    Node.ImageIndex := 3;
    Node.SelectedIndex := 3;
    Node.EditText;
//    TVFilesExplorer.Selected := Node;
//    TVFilesExplorer.Selected.EditText;
  end
  else
  begin
    Showmessage('Der Ordner kann nicht erstellt werden.');
  end;
end;

Zitat:

ich mache etwas ähnliches wie du in TPopupMenu.OnPopup und nicht in TControl.OnContextPopup.

Das seltsame ist im Moment: ich weiss nicht mehr, wie ich auf OnContextPopup gekommen bin.

Gruss
Delbor

[Redeemer]

Die Methode sieht besser aus. Und deine ShowMessage kommt? Text ist, was du denkst?

Zitat von Delbor:

Zitat:

ich mache etwas ähnliches wie du in TPopupMenu.OnPopup und nicht in TControl.OnContextPopup.

Das seltsame ist im Moment: ich weiss nicht mehr, wie ich auf OnContextPopup gekommen bin.

Vielleicht, weil da die Mausposition gleich mit kommt.

[Delbor]

Hi Redeemer
Ich hab mal noch einige Showmessages eingebaut. Das sieht dann so aus:

Zitat:

procedure TOpenFileFrame.TVFilesExplorerContextPopup
FPopUpPath := := P:\
FPopUpNode :=P:\ [Elements]

Zitat:

TOpenFileFrame.PopupMenu1Popup

Nur der Methodenrumpf verlangt noch ein klein wenig Hirnschmalz, um die korrekte Position des PopUps zu setzen:

Delphi-Quellcode:

procedure TOpenFileFrame.PopupMenu1Popup(Sender: TObject);
begin
  ShowMessage('TOpenFileFrame.PopupMenu1Popup');
end;

Da werde ich wohl noch einige Felder einführen müssen...

Zitat:

Vielleicht, weil da die Mausposition gleich mit kommt.

Eher, weil das Event vom Treeview veröffentlicht wird - aber klar, dass da die Mouseposition dabei ist, macht die Sache scheinbar einfacher.

Gruss
Delbor

[Redeemer]

Jetzt steig ich durch die ganzen Codefetzen nicht mehr durch und weiß auch nicht mehr genau, ob du noch ein Problem hast oder nicht.

[Delbor]

Hi Redeemer

Mein Problem ist nach wie vor ungelöst. Ich habe die prozedur TVFilesExplorerContextPopup bis auf den Prozedurkopf auskommentiert. Damit sollte sie unassigned sein - auszuführen gibts da eh nichts mehr.

Dafür habe ich die Prozedure Mousedown angepasst:

Delphi-Quellcode:

procedure TOpenFileFrame.TVFilesExplorerMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var AnItem: TTreeNode; P: TPoint;
begin
  if Button =(mbRight) then
  begin
    AnItem := TVFilesExplorer.GetNodeAt(X, Y);
    if AnItem <> nil then
    begin
      FPopUpNode := AnItem;
      FPopUpPath := PNameRec(AnItem.Data)^.RealName;
      FPopUpPoint := Point(x,y);
    end;
    P := ClientToScreen(Point(x,y));

    ShowMessage('procedure TOpenFileFrame.TVFilesExplorerMouseDown' +sLineBreak+
                'FPopUpPath := ' + FPopUpPath +sLineBreak+
                'FPopUpNode :=' + FPopUpNode.Text);
    PopupMenu1.PopupComponent := TVFilesExplorer;
    PopupMenu1.Popup(P.X, P.Y);
  end;
end;

Anschliessnd wird PopupMenu1Popup aufgerufen, wo ich per Showmessage einige Ausgaben mache.
Interessant wirds dann aber bei den Menuklicks. Hier das wesentliche Schnipsel aus 'OrdnererstellenClick':

Delphi-Quellcode:

  if LIsdirectory then
  begin
//    Node := TVFilesExplorer.Items.AddChildFirst(FPopUpNode, 'Neu');
    Node := TVFilesExplorer.Items.Add(FPopUpNode, 'Neu');
//    Node := TVFilesExplorer.Items.AddChild(FPopUpNode, 'Neu');
    Node.ImageIndex := 3;
    Node.SelectedIndex := 3;
    Node.EditText;
  end
  else
  begin
    Showmessage('Der Ordner kann nicht erstellt werden.');
  end;
end;

Interessant hier: Beide auskommentirten Zeilen erzeugen den Knoten zwar, zeigen ihn aber aber in der Linken oberen Ecke des Treeviews an.
Die nicht auskommentierte Zeile zeigt den Knoten zwar an, aber nicht mit dem Knoten als Parent, den ichh ausgewählt hatte ( Hier 'P:\'), sondern eigentlich darunter, also auf gleicher Ebene.
Ordnerposition2.jpg
Das Problem ist also nicht die Prozedur TVFilesExplorerContextPopup.

Gruss
Delbor

[Redeemer]

Na ja, Add ist auf jeden Fall falsch („Der Knoten wird als letzter gleichrangiger Knoten des Parameters Sibling hinzugefügt.“ willst du ja nicht). Habe jetzt deinen Code mal in ein Projekt kopiert und mit AddChild geht es.
Damit das mit dem EditText funktioniert, musst du vorher noch FPopupNode.Expand(egal) aufrufen, aber darum geht's hier nicht.

Kompletter Implementation-Abschnitt:

Delphi-Quellcode:

procedure TForm1.TVFilesExplorerMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var AnItem: TTreeNode; P: TPoint;
begin
  if Button =(mbRight) then
  begin
    AnItem := TVFilesExplorer.GetNodeAt(X, Y);
    if AnItem <> nil then
    begin
      FPopUpNode := AnItem;
      //FPopUpPath := PNameRec(AnItem.Data)^.RealName;
      //FPopUpPoint := Point(x,y);
    end;
    P := ClientToScreen(Point(x,y));

    ShowMessage('procedure TOpenFileFrame.TVFilesExplorerMouseDown' +sLineBreak+
                'FPopUpNode :=' + FPopUpNode.Text);
    PopupMenu1.PopupComponent := TVFilesExplorer;
    PopupMenu1.Popup(P.X, P.Y);
  end;
end;

procedure TForm1.uwas1Click(Sender: TObject);
var
  Node: TTreeNode;
begin
  begin
// Node := TVFilesExplorer.Items.AddChildFirst(FPopUpNode, 'Neu');
    Node := TVFilesExplorer.Items.AddChild(FPopUpNode, 'Neu');
    FPopupNode.Expand(True);
// Node := TVFilesExplorer.Items.AddChild(FPopUpNode, 'Neu');
    Node.ImageIndex := 3;
    Node.SelectedIndex := 3;
    Node.EditText;
  end
  //else
  //begin
  //  Showmessage('Der Ordner kann nicht erstellt werden.');
  //end;
end;

D2009. Wenn's nicht geht, liegt's vielleicht an D5. Probier doch mal nur das Hinzufügen in einem Minimalbeispiel ganz ohne Popup.

[Delbor]

Hi Redeemer

Zitat von Redeemer:

D2009. Wenn's nicht geht, liegt's vielleicht an D5. Probier doch mal nur das Hinzufügen in einem Minimalbeispiel ganz ohne Popup.

Zuerst war ich überrascht, was Delphi5 angeht - aber dann bemerkte ich, dass das so im Eingangspost steht. Meine aktuell eingesetzte Version kannst du jedem meiner Beiträge entnehmen.
Zum aktuellen Stand: Dank deines Codescnipsels funktioniert es nun soweit. Allerdings erst, nachdem ich den bewussten Knoten wieder zugeklappt habe - der neue Knoten klebt dann als letzter im Childbaum.

Grundsätzlich habe ich zwei Möglichkeiten:

Delphi-Quellcode:

procedure TOpenFileFrame.Verzeichniserstellen1Click(Sender: TObject);
  var LRealName, LDirectoryPath, NewString: string; ClickedOK: Boolean;
begin
  if FSelectedNode <> nil then
  begin
    LRealName := PNameRec(FSelectedNode.Data)^.RealName;     //PNameRec(FSelectedNode.Data)^.RealName
    NewString := 'Geben sie einen Verzeichnisnamen ein ';
    ClickedOK := InputQuery('Input Box', 'Prompt', NewString);
    if ClickedOK then            { NewString contains new input string. }
    begin
      LDirectoryPath := FPopUpPath +'\' + NewString;
    end;
    TDirectory.CreateDirectory(LDirectoryPath);
  end;
end;

Die Prozedur war eigentlich nur ein Test. Der Vorteil: für die angelegte Datei wird bei aufklappen des Parentnodes auch 'automatisch' ein Knoten erzeugt. Automatisch heisst hier: Wenn der ParentKnoten (In meinen Beispielen 'P:\') aufgeklappt wird, startet die Komponente TFileSearcher eine Dateisuche und ruft jedesmal, wenn ein Ordner oder eine Datei gefunden wurde, die Prozedur AddNewNode des PathfinderFrames auf:

Delphi-Quellcode:

procedure TOpenFileFrame.AddNewNode(ParentNode: TTreeNode; const aCaption,
  aRealName: string; aIsdirectory: Boolean);
  var Node: TTreeNode; NameRec: PNameRec;
      Lextension: String;
begin
  Node := TVFilesExplorer.Items.AddChild(ParentNode, aCaption);
  if aIsdirectory then
    begin
      Node.ImageIndex := 1;
      Node.SelectedIndex := 1;
      (* Dummy-Knoten anlegen *)         //   'alle Dateien', '.pdf', '.Docx', '.bmp', '.nef', '.jpg', '.png
      TVFilesExplorer.Items.AddChild(Node, 'dummy');
    end
  else
    begin
      Node.ImageIndex := 2;
      Node.SelectedIndex := 2;
      FPathlist.Add(aRealName);
      Lextension := ExtractFileExt(aRealName);   // Hier wird die Übereinstimmung mit dem aktuellen
      Node.Enabled := False;                     // Datefilter (Dateiendung) festgestellt. Wenn nein,
      if (FFileType = Lextension)  then            // ist der eingefügte Node nicht Enabled
        Node.Enabled := true;
      if (FFileType = 'alle Dateien') then
        Node.Enabled := true;
    end;
  New(NameRec);
  NameRec^.RealName := aRealName;
  NameRec^.Caption := aCaption;
  NameRec^.IsDirectory := aIsdirectory;
  Node.Data := NameRec;
end;

Der Nachteil: Ich habe keine Möglichkeit, den neu angelegten direkt umzubenennen, wie es zB. im Explorer der Fall ist, sondern ich muss den neuen Namen per Inputbox eingeben.

Die zweite Möglichkeit wäre (gewesen?), einen Knoten zu erzeugen, diesen in den Editmodus zu versetzen und analog zum Explorer umzubennen - aber gerade dies scheint nicht zuverlässig zu funktionieren.

Gruss
Delbor

[Redeemer]

Zitat von Delbor:

Zum aktuellen Stand: Dank deines Codescnipsels funktioniert es nun soweit. Allerdings erst, nachdem ich den bewussten Knoten wieder zugeklappt habe - der neue Knoten klebt dann als letzter im Childbaum.

Was klappst du zu? Versteh ich nicht.