浏览代码

# revisions: 33129

git-svn-id: branches/fixes_3_0@33767 -
marco 9 年之前
父节点
当前提交
88b1b91402
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-process/src/simpleipc.pp

+ 1 - 1
packages/fcl-process/src/simpleipc.pp

@@ -269,7 +269,7 @@ procedure TSimpleIPC.SetActive(const AValue: Boolean);
 begin
 begin
   if (FActive<>AValue) then
   if (FActive<>AValue) then
     begin
     begin
-    if (csLoading in ComponentState) then
+    if ([]<>([csLoading,csDesigning]*ComponentState)) then
       FActive:=AValue
       FActive:=AValue
     else  
     else  
       If AValue then
       If AValue then