删除对象，在TGrid上禁用水平滚动（Delphi XE5 + iPad）

Question

我目前正在iPad应用程序上工作，该应用程序使用带有动态创建内容的TGrid。

但这给我带来了一些问题：由于某种原因，我无法释放和释放添加到TGrid的对象（再次删除它们）。 在Windows中，FreeAndNil可以解决此问题，但是FreeAndNil在Mac Simulator或iPad设备上却无能为力。 我唯一能想到的解决方案是将RowCount设置为适当的数量，但是控件仍然存在并且被覆盖。

也有可能以某种方式禁用TGrid中的水平滚动还是我需要为此实现自定义控件？

Answer 1

在带有ARC的移动平台上， Free/FreeAndNil不会立即释放对象。 请参阅ARC下的Free和DisposeOf方法 。

而是使用DisposeOf（） ，它会立即调用析构函数。

DisposeOf强制在对象中执行析构函数代码。 新的Delphi移动编译器引入了通过调用DisposeOf实现的新的处置模式，即使存在带有对该对象的未决引用的变量，该模式也会执行析构函数代码。 调用DisposeOf方法后，对象将处于特殊状态，即Disposed状态。 这意味着如果再次调用DisposeOf或引用计数达到零（释放内存的那一刻），则不会再次调用析构函数。

Answer 2

也有可能以某种方式禁用TGrid中的水平滚动...

当然，只需调整列的大小以适合网格的大小即可。 或者，如果您不能执行此操作，请使用TColumn.Visible属性。 如果可见列的witdh之和小于网格的宽度，则将没有滚动条。 但是，如果没有滚动条，则必须处理在网格中左右移动的问题。

示例：具有5列的网格，仅前2个可见，并且左侧和右侧按钮。 当按下右按钮时，最左边的可见列0变为不可见，并且列2开始可见/现在列1和2是可见/。