procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListView1.MultiSelect := not ((ssShift in Shift) or (ssCtrl in Shift)) end;————————————————————————————————— 宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。 —————————————————————————————————
Shift: TShiftState; X, Y: Integer);
begin
ListView1.MultiSelect := not ((ssShift in Shift) or (ssCtrl in Shift))
end;—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
to 二楼的 lxpbuaa(桂枝香在故国晚秋) ,你测试过吗? 好像不能用。
到底是要求能用鼠标拖动实现多选还是不能?上面的是表示不能用鼠标配合Ctrl和Shift键实现多选,而只能用Ctrl、Shift和上下箭头键实现。如果你的意思是要求用鼠标拖动实现多选,那么将MultiSelect设为true就行了。—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
ft,将 MultiSelect 设置为 false 就不可以多选了。 要求可以多选, 但是不能鼠标拖动多选。