TreeView Items in Popupmenu übertragen

[toms]

oder so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddMenu(nil, nil);
end;

procedure TForm1.AddMenu(Node: TTreeNode; Menu: TMenuItem);
var
  Temp: TTreeNode;
  Item: TMenuItem;
begin
  if not Assigned(Node) then begin
    Temp := TreeView1.Items[0];
    while Assigned(Temp) do begin
      Item := TMenuItem.Create(Self);
      Item.Caption := Temp.Text;
      PopupMenu1.Items.Add(Item);
      if Temp.Count > 0 then AddMenu(Temp, Item);
      Temp := Temp.GetNextSibling;
    end;
  end else begin
    Temp := Node.GetFirstChild;
    while Assigned(Temp) do begin
      Item := TMenuItem.Create(Self);
      Item.Caption := Temp.Text;
      Menu.Add(Item);
      if Temp.Count > 0 then AddMenu(Temp, Item);
      Temp := Temp.GetNextSibling;
    end;
  end;
end;