diff --git a/source/main.pas b/source/main.pas
index 7aaec9bf..042e4a45 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -7924,6 +7924,7 @@ begin
   vt := Sender as TVirtualStringTree;
   if vt.Tag <> VTREE_NOTLOADED then
     Exit;
+  vt.OnFocusChanged(vt, vt.FocusedNode, vt.FocusedColumn);
   Sel := GetVTCaptions(vt, True);
   DeInitializeVTNodes(vt);
   Screen.Cursor := crHourglass;