没看明白...

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

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

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

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

用ListView来实现呢？

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

当然ListView了

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

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

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

每个按钮下放一个checkbox

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

窗体事件

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

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

还有其他的方法吗？

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;