ich möchte nicht spammen, aber kopiere ich es aus dem oberen post noch einmal:
Delphi-Quellcode:
function TGtroCustomCheckShellTreeView.IsNodeChecked(Node: TTreeNode): Boolean;
// Verifies if the node is checked
// Called by CheckIt(), UncheckAll(), WMLButtonDown() and LoadFromFile()
const
TVIS_CHECKED = $2000;
var
TvItem: TTVItem;
begin
TvItem.Mask := TVIF_STATE;
TvItem.hItem := Node.ItemId;
TreeView_GetItem(Node.TreeView.Handle, TvItem);
Result := (TvItem.State and TVIS_CHECKED) = TVIS_CHECKED;
end;
durchdebuggt habe ich bereits und ANode hat immer den zugewiesenen wert "()" ohne anführungszeichen. ANode ist also nicht nil aber trotzdem in irgendeiner art und weise leer.