5,388
社区成员
发帖
与我相关
我的任务
分享？请教拖放过程中遇到问题，急。。。
ListBox的Multiselect为treu
为什么有以下代码代码后按下Ctrl键多选会无效？要怎么解决？
procedure TForm1.ListBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then begin
ListBox.BeginDrag(false);
end;
end;
为什么有以下代码代码后按下Ctrl键多选会无效？要怎么解决？
procedure TForm1.ListBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then begin
ListBox.BeginDrag(false);
end;
end;
...全文
请发表友善的回复…
发表回复
Kshape_zh 2005-01-23
- 打赏
- 举报
你把这句代码去掉就可以了啊
呵呵
其实，在这里多选是有效的
只不过
你必须是双击要选中的行了，双击后同样可以选中多行的
至于原因，我也不知道
你先试试
呵呵
其实，在这里多选是有效的
只不过
你必须是双击要选中的行了，双击后同样可以选中多行的
至于原因，我也不知道
你先试试
