Update tcomponent.tsf

设计器属性读取

funcext/tvclib/tcomponent.tsf

@@ -556,7 +556,17 @@ public //
                 begin
                     r[n]:= otype.FormatEdit(FVariableProperties[n],v["write"]?true:false);
                 end else
+                begin
+                    ///////////////////20230808处理避免问题不一致///////////visibe,enabled,wspopup//////////////////////////
+                    vv := FChangedProperties[n];
+                    if ifnil(vv) then 
+                    begin 
                         r[n]:= otype.FormatEdit(invoke(self(true),n),v["write"]?true:false);
+                    end else 
+                    begin
+                        r[n]:=otype.FormatEdit(vv,v["write"]?true:false);;
+                    end 
+                end 
             end
         end
         //次序处理
@@ -658,7 +668,10 @@ 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 n="visible" or n="wspopup" or n="enabled" then 
+                    begin
+                        return 1; // 屏蔽几个属性
+                    end 
                     if vit="eventhandler" then //分类保存
                     begin
                         FEventsProperties[n]:= iv;