Fix enabled EXPLAIN link on startup and avoid AVs on click, as long as no FocusChanged event has fired.

This commit is contained in:
Ansgar Becker
2010-02-23 23:15:08 +00:00
parent 1d0f90eb86
commit 524faddf7e

View File

@@ -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;