Fix crash after tabbing from the last node on "Database" tab in edit mode. Fixes issue #3526.

This commit is contained in:
Ansgar Becker
2014-03-09 20:22:00 +00:00
parent 906b80f3a5
commit 23013f0499

View File

@@ -5575,8 +5575,10 @@ var
Obj: PDBObject;
begin
// Tables and views can be renamed, routines cannot
Obj := Sender.GetNodeData(Node);
Allowed := Obj.NodeType in [lntTable, lntView];
if Assigned(Node) then begin
Obj := Sender.GetNodeData(Node);
Allowed := Obj.NodeType in [lntTable, lntView];
end;
end;