在 Delphi FMX 中设置 TlistView 水平显示

Question

我有一个带有 Tlistview 组件的 FireMonkey 表单。 它有一个 Tlayout 作为它的父级。 我希望列表中的项目不应该填满它所在的整个布局，相反，它应该适合其父布局宽度的一半，当项目到达布局底部时，它应该转到下一列。< /p>

在 Tlistbox 组件（不是 TlistView）中有一个名为“ListStyle”的属性，它可以设置为“垂直”或“水平”，这正是我在 Tlistview 组件中寻找的。

任何帮助将不胜感激。

Answer 1

为此，TListBox 更合适。这里有属性 Columns。设置 ListBox.Columns := 2，您会看到两个平行列表。

请注意，它没有按照您的要求排序，但您可以使用 ListBoxItem.Index 或调用方法 ListBox1.Sort(ComparerFuncfunction (Left, Right: TFmxObject): Integer) 对项目进行排序。

TListView 不可能显示更多的列。如果需要 TListView，我会将多个 TListView 在布局中并排放置，并将元素本身分配给视图，或者在调整大小时重新组合它们。