Hi,
gute Idee.
Warum ich das immer vergessen?!
Jedenfalls hakt es an der markierten Zeile bzw. in der danach.
Code:
function TfrmMain.GetProjectNode(aNode: PVirtualNode): PVirtualNode;
var
pNode: PVirtualNode;
pData: PTVData;
begin
pNode := aNode;
Result := nil;
while (true) do begin
if (pNode = nil) then Exit;
[color=#ff0000] pData := vstData.GetNodeData(pNode);[/color]
if (pData = nil) then Exit;
if (pData.dwMode = 1) then Break;
pNode := pNode.Parent;
end;
Result := pNode;
end;
(Ja... das ist ein anderer Source, aber der oben war falsch)
Chris