tsl

更新

funcext/tvclib/tcomponent.tsf

@@ -274,11 +274,16 @@ public //֪ͨ
         @param(Value)(bool) 状态值 %%
         @param(SetChildren)(bool) 是否修改子控件状态 %%
         **}
-        if ifnil(SetChildren)then SetChildren := true;
+        //if ifnil(SetChildren)then SetChildren := true;
         If Value then 
+        begin 
             includestate(FComponentState,csDesigning);
-        else 
+            if (self(true) is class(tcontrol)) then self(true).visible := true; //设置可见
+        end 
+        else
+        begin  
             excludestate(FComponentState,csDesigning);
+        end 
         if SetChildren then
         begin
             items := FComponents.data;
@@ -460,7 +465,7 @@ public //
         if AComponent.ValidateContainer(Self)then
         begin
             self.Insert(AComponent);
-            If csDesigning in FComponentState then AComponent.SetDesigning(true);
+            //If csDesigning in FComponentState then AComponent.SetDesigning(true);
             Notification(AComponent,opInsert);
         end
     end;
@@ -470,7 +475,7 @@ public //
         @explan(说明)移除子节点 %%
         **}
         Notification(AComponent,opRemove);
-        if Remove(AComponent)then Acomponent.Setdesigning(False);
+        Remove(AComponent);//if Remove(AComponent)then Acomponent.Setdesigning(False);
     end;
     function Assigned(o);virtual;
     begin
@@ -631,6 +636,7 @@ public //
                     iv := otype.UnformatEdit(v); //反转换
                     if FChangedProperties[n]=vi then continue; //没有改变
                     SetChangedPublish(n,iv,pp); //保存
+                    if n="visible" or n="wspopup" or n="enabled" then return 1; // 屏蔽几个属性
                     if vit="eventhandler" then //分类保存
                     begin
                         FEventsProperties[n]:= iv;

funcext/tvclib/utslvclmenu.tsf

@@ -107,7 +107,7 @@ private
         {**
         @explan(说明) 删除hmenu节点 %%
         **}
-        if _wapi.RemoveMenu(FHandle,pi,MF_BYPOSITION)then menuchanged();
+        _wapi.RemoveMenu(FHandle,pi,MF_BYPOSITION);
     end
     function addhmenuitem(item,bef);
     begin
@@ -790,6 +790,7 @@ private
             end
         end
         item.setfparent(nil);
+        menuchanged();
     end
     private
     function setparentforproperty(f);