TListBox Multiselect风格

Question

是否可以使用标准TListBox更改Multiselect行为？

我希望只能通过按住Ctrl键而不是Shift键来多项选择项目。

我根据所选项目更新了TA，例如：

TAction(Sender).Enabled := ListBox1.ItemIndex <> -1;

当按住shift切换到multiselect时，当选择列表框项目时，分配给动作的控件会闪烁，只有按住ctrl键才会发生这种情况。

所以我只想用Ctrl键进行多选。

简单地说，我怎么能：

• Multiselect TListBox
• 使用Ctrl进行多选
• Shift无效

谢谢：）