delphi - 使用 Delphi 5 在 ListView 单元格中插入组合框

Question

我想在 TListView 组件中放置一个 TComboBox。知道我该怎么做吗？我不知道，我不是德尔福大师x_x。另外，我不能使用外部组件。
欢迎任何帮助:)

Answer 1

一种通常效果很好的方法是在表单上放置一个 tComboBox，但将其隐藏。当您希望组合框出现时(例如在 tListView 的 OnEditing 事件中)，然后使用 Item.DisplayRect(drBounds) 中的矩形作为您的坐标显示它(它们是相对于 ListView 的，因此请记住这一点)。您还需要覆盖组合框的 onkey down，并处理 tab、esc 等内容。当按下其中一个键时，您希望采取适当的操作(如隐藏控件或选择下一个要编辑的项目) .组合框的 onExit 应始终隐藏它。