Safety check to avoid AVs in special cases.

This commit is contained in:
Ansgar Becker
2009-12-23 00:11:49 +00:00
parent 5152b38937
commit 54b6f31fa9

View File

@ -6146,7 +6146,7 @@ begin
oldSelectedTable := SelectedTable;
DBNode := FindDBNode(db);
FNode := DBtree.FocusedNode;
TableHereHadFocus := FNode.Parent = DBNode;
TableHereHadFocus := Assigned(FNode.Parent) and (FNode.Parent = DBNode);
// Suspend focus changing event, to avoid tab jumping
FocusChangeEvent := DBtree.OnFocusChanged;
DBtree.OnFocusChanged := nil;