From 23013f0499dcbca4331ab574a73266626f8bd2b8 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 9 Mar 2014 20:22:00 +0000
Subject: [PATCH] Fix crash after tabbing from the last node on "Database" tab
 in edit mode. Fixes issue #3526.

---
 source/main.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index 3a73e5b2..7395b9dc 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -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;