在 Delphi FMX 中设置 TlistView 水平显示

Question

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

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

任何帮助将不胜感激。

Answer 1

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

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

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