未指定的错误，不能选择任何控件

今天突然发生的情况，照常打开D2007 精简版
用鼠标点在工程上选择任何一个控件都会弹出提示“未指定的错误”[2004474C]{rtl100.bpl  } ComObj.OleError (Line 1269, "common\ComObj.pas" + 1) + $11
[2004475B]{rtl100.bpl  } ComObj.OleCheck (Line 1276, "common\ComObj.pas" + 0) + $7
[201CA5C9]{vcl100.bpl  } OleCtrls.TOleControl.CreateControl (Line 682, "OleCtrls.pas" + 15) + $13
[201CAEF0]{vcl100.bpl  } OleCtrls.TOleControl.CreateWnd (Line 859, "OleCtrls.pas" + 1) + $2
[2013F80A]{vcl100.bpl  } Controls.TWinControl.CreateHandle (Line 6883, "Controls.pas" + 3) + $4
[201432E0]{vcl100.bpl  } Controls.TWinControl.HandleNeeded (Line 8894, "Controls.pas" + 4) + $4
[201432ED]{vcl100.bpl  } Controls.TWinControl.GetHandle (Line 8900, "Controls.pas" + 1) + $2
[05505F7A]{vcldesigner100.bpl} VCLSurface.TWinControlItem.GetShowing (Line 987, "vclsurface.pas" + 1) + $3
[20D32AFE]{designide100.bpl} Designer.TDesigner.GetGuides (Line 1399, "Designer.pas" + 4) + $38
[20D3100D]{designide100.bpl} Designer.TDesigner.DragBegin (Line 838, "Designer.pas" + 23) + $2
[20D31849]{designide100.bpl} Designer.TDesigner.ForceCommonSelectParent (Line 1037, "Designer.pas" + 4) + $1B
[20D3390C]{designide100.bpl} Designer.TDesigner.MouseDown (Line 1695, "Designer.pas" + 81) + $9
[20D2FFBA]{designide100.bpl} Designer. + $0
[05509EE0]{vcldesigner100.bpl} VCLSurface.MouseEvent (Line 2873, "vclsurface.pas" + 36) + $2C
[0550D42E]{vcldesigner100.bpl} VCLSurface.TVclDesignSurface.GetSelectionMessages (Line 4373, "vclsurface.pas" + 3) + $5
[2003203C]{rtl100.bpl  } Classes.TThreadList.UnlockList (Line 3359, "common\Classes.pas" + 0) + $4
[0550AAF7]{vcldesigner100.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3143, "vclsurface.pas" + 48) + $6
[2016410D]{vcl100.bpl  } Forms.TApplication.DispatchAction (Line 9023, "Forms.pas" + 9) + $A
[20006936]{rtl100.bpl  } System.@IsClass (Line 9077, "sys\system.pas" + 1) + $8
[2013C2AF]{vcl100.bpl  } Controls.TControl.WndProc (Line 5067, "Controls.pas" + 4) + $21
[20040E4C]{rtl100.bpl  } Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0
[201406A7]{vcl100.bpl  } Controls.TWinControl.WndProc (Line 7304, "Controls.pas" + 111) + $6
[20D1972A]{designide100.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[2003203C]{rtl100.bpl  } Classes.TThreadList.UnlockList (Line 3359, "common\Classes.pas" + 0) + $4
[200EBAA8]{vcl100.bpl  } Graphics.FreeMemoryContexts (Line 5060, "Graphics.pas" + 12) + $5
[2013FDE5]{vcl100.bpl  } Controls.TWinControl.MainWndProc (Line 7076, "Controls.pas" + 6) + $0
[20140158]{vcl100.bpl  } Controls.TWinControl.IsControlMouseMsg (Line 7176, "Controls.pas" + 9) + $25
[201406A7]{vcl100.bpl  } Controls.TWinControl.WndProc (Line 7304, "Controls.pas" + 111) + $6
[20198F53]{vcl100.bpl  } ComCtrls.TCustomListView.WndProc (Line 15428, "ComCtrls.pas" + 12) + $4
[2013FDD0]{vcl100.bpl  } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
[20040E4C]{rtl100.bpl  } Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0
[20137642]{vcl100.bpl  } Controls.FindControl (Line 2104, "Controls.pas" + 6) + $9
[201625F0]{vcl100.bpl  } Forms.TApplication.ProcessMessage (Line 8105, "Forms.pas" + 23) + $1
[2016262A]{vcl100.bpl  } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
[2016291F]{vcl100.bpl  } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
[0042297A]{bds.exe     } bds.bds (Line 195, "" + 7) + $7
重装了Delphi，问题依旧，好像是工程有问题，因为新建工程没有这样的情况