delphi - 在 Delphi FMX 中设置 TlistView 水平显示

Question

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

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

任何帮助将不胜感激。

Answer 1

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

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

TListView无法显示更多列。如果需要 TListView，我会在布局中将多个 TListView 彼此相邻放置，并将元素本身分配到视图中，或者在调整大小时重新组合它们。