Changeset 490 for cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

Timestamp:

Sep 17, 2008, 3:28:02 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

new RPC broker

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas (modified) (1 diff)

cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

@@ -603 +603 @@
     Close;
   end
-  else if E.Message = 'Cannot focus a disabled or invisible window' then begin
-    i := 1; // do nothing
+  else if (E is EInvalidOperation) then     //kt 9/11/08
+  begin
+    if E.Message = 'Cannot focus a disabled or invisible window' then begin
+      i := 1; // do nothing
+    end
+    else Application.ShowException(E);
   end
   else Application.ShowException(E);