如何用鼠标一次选择多个按钮？

[yeyuzy]

我在form上放置了3排BitBtn按钮，每排5个，当程序编译运行后我想要用鼠标一次选中多个BitBtn按钮，程序在设计中是可以的，当程序编译运行后应该如何操作？谢谢了！！！

[vokeyliu]

你的目的是什么呢？在运行时使用鼠标拖动改变按钮的位置吗？

[yeyuzy]

我的目的是每一个按钮对应一个座位，使用鼠标可以同时选中多个按钮即多个座位。
如果是在设计阶段，我用鼠标从左上角往右下角一拖，在这个范围内的按钮控件都能被选中，现在我的要求是当程序编译运行以后要有“使用鼠标可以同时选中多个按钮”的功能，我的程序应该如何做。谢谢了。！！！

[fengchuixuelai]

用ListView来实现呢？

[yeyuzy]

用ListView来实现呢？
你能说具体点吗，谢了！！！

[iDeputy]

没看明白...

[taoran12]

你的意思是一次相当于同时点击按钮多个按钮吗？调用按钮的onclick事件就可以了

[yeyuzy]

我在form上放置了3排BitBtn按钮，每排5个，当程序编译运行后我想要用鼠标一次选中多个BitBtn按钮，就像用鼠标拖动选择文件一样，谢谢了！！！

[OO_is_just_P]

当然ListView了

[yeyuzy]

用ListView来实现呢？
你能说具体点吗，谢了！！！

[reverzeng]

listview有一個multiselect屬性,設為true,就可以實現你的多選的效果

[fslqh]

好像不行的，或自己写一个按钮。

[haitao]

每个按钮下放一个checkbox

想拖拉选择，则需要额外处理了——其实它只能选择相邻的

[梦尊]

窗体事件

OnMouseDown 时记录鼠标起始坐标 X,Y
OnMouseMove 时获取当前鼠标坐标 X1, Y1, 然后画矩形 (X,Y) - (X1, Y1)
OnMouseUp 时记录鼠标最终坐标 X2,Y2

计算哪些按钮位于 (X,Y) - (X2,Y2) 这个区间之内，符合条件的视为选中。
矩形可以用Shape控件来实现。

[yeyuzy]

还有其他的方法吗？

[lynmison2012]

ListView属性设置如下：
ViewStyle = vsIcon
MultiSelect = true
即可实现鼠标框选多项目。

以下小代码可以用于显示已选的项目
procedure TFmTest.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to lvTest.Items.Count-1 do
begin
if lvTest.Items[i].Selected then ShowMessage(lvTest.Items[i].Caption);
end;
end;