# | Line 449 | Line 449 | begin | |
---|---|---|
449 | else | |
450 | Destination := FindNode(DataSet.FieldByName(ParentField).AsVariant); | |
451 | ||
452 | < | if Destination = Node.Parent then Exit; |
452 | > | if (Destination = nil) or (Destination = Node.Parent) then Exit; |
453 | ||
454 | FUpdating := true; | |
455 | try | |
# | Line 640 | Line 640 | end; | |
640 | procedure TIBTreeView.Loaded; | |
641 | begin | |
642 | inherited Loaded; | |
643 | + | IBControlLinkChanged; |
644 | Reinitialise | |
645 | end; | |
646 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |