查找定位，定位节点时，保护界面

DataModules/SearchDm.pas

@@ -43,7 +43,7 @@ implementation
 
 uses
   ProjectData, BillsMeasureDm, BillsCompileDm, Math, ZhAPI,
-  UtilMethods;
+  UtilMethods, Forms, Controls;
 
 {$R *.dfm}
 
@@ -109,10 +109,15 @@ procedure TSearchData.LocateCurrent(ALocateType: TLocateType);
   end;
 
 begin
-  if ALocateType = ltCompile then
-    LocateCompile
-  else if ALocateType = ltMeasure then
-    LocateMeasure;
+  Screen.Cursor := crHourGlass;
+  try
+    if ALocateType = ltCompile then
+      LocateCompile
+    else if ALocateType = ltMeasure then
+      LocateMeasure;
+  finally
+    Screen.Cursor := crDefault;
+  end;
 end;
 
 procedure TSearchData.SearchKeyword(const AKeyword: string);