Hi,
Möchte eine TreeView Struktur in einen TTreeView kopieren.
(Auch wenn der TreeView in einer anderen Application ist)
Das funktioniert schon mal ganz gut, aber es durchlauft nicht alle
Knoten. Irgendwo ist an der Rekursion was nicht richtig.
Kann mir da jemand weiterhelfen?
danke!
// Ein vollständiges Beispielprojekt befindet sich in der Anlage
Delphi-Quellcode:
procedure AddNodes(hTree: HWND; ASrc: HTREEITEM; ADst: TTreeNode);
var
NextDst: TTreeNode;
NextSrc: HTREEITEM;
begin
{if not Assigned(ASrc) then
Exit;}
TVItem.hItem := ASrc;
TVItem.mask := TVIF_TEXT or TVIF_IMAGE or TVIF_PARAM;
MM.Write(TVItem, PrTVItem, SizeOf(TTVItem));
{Get Next TreeView Item}
TreeView_GetItem(TreeWnd, PrTVItem^);
{Add to our TreeView }
NextDst := Form1.TreeView1.Items.AddChild(ADst, MM.ReadStr(PrText));
{Get Next TreeView Item}
NextSrc := TreeView_GetChild(hTree, ASrc);
while Assigned(NextSrc) do
begin
AddNodes(hTree, NextSrc, NextDst);
NextSrc := TreeView_GetNextItem(hTree, NextSrc, TVGN_NEXT);
end;
end;