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