使用emptystring将TText的自动调整大小设置为0

时间:2015-05-28 07:55:50

标签: delphi firemonkey delphi-xe7

我将我的TText设置为自动调整大小,将文本值设置为“”(空字符串)。但宽度不会变为0.

对于类似的问题有Fix,但这对我的问题没有帮助。

当我将项目从XE6更新到XE7并且我有一个样式用于我的TGroupbox时出现了问题。在XE7中,width和height已被size.width替换为size.height,其中size是TComponentsize对象。

当组框没有样式时,我不希望它剪辑组框的边框。

我在样式的TText中添加了TFloatanimation,并将其设置为

property := "size.width"
**Duration := 0**
start :=0
stop  :=0
**enabled := true**

现在我的所有TGroupbox都运行此动画将宽度重置为0.如果它们有文本值,请调整正常。这是最好的解决方案吗?我在1张表格上最多有20个TGroupbox。

0 个答案:

没有答案