diff --git a/funcext/tvclib/tcomponent.tsf b/funcext/tvclib/tcomponent.tsf index de65bca..9c30506 100644 --- a/funcext/tvclib/tcomponent.tsf +++ b/funcext/tvclib/tcomponent.tsf @@ -556,7 +556,17 @@ public // begin r[n]:= otype.FormatEdit(FVariableProperties[n],v["write"]?true:false); end else - r[n]:= otype.FormatEdit(invoke(self(true),n),v["write"]?true:false); + 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;