Question

我在一个DELPHI界面放置了40个LABEL,当程序运行后我怎么拖动鼠标一次选中多个label，并记录下各label名字

Answer 1

程序运行期,label是不能选择的吧?
是不是开发期?
你要什么效果呢?

追问

如果换成其它的组件可以，一次选中多个吗？比如换成BUTTE

Answer 2

主要是不知道你要实现什么目的。。。运行后一般不能再选择控件了，再追问吧

追问

客户端的界面有100个label，每一个label对应一个房间代号，假如我想看01号房到100号房，或者5号房到55号房的入住情况，如果一个一个看很麻烦，但是可以自由选择就比较效率，所以我就想试试看能不能写出来，但是又出来没有接触过，所以很烦，希望知道的指教一下，最好有代码。

追答

用Label的颜色表示入住没入住吧，然后在程序里可以判断Label的颜色，如果是红色，表明是已经入住。
var
m: Integer;
begin

for m := 0 to Self.ComponentCount - 1 do
if Self.Components[m] is Tlabel then
begin
if Tlabel(Self.Components[m]).Color= Clred then
///这个房间已经入住
end;

追问

这样是可以，但是没有实现我所要的功能，我希望选择完后能够生成一张报表，能够体现出更多的信息出来，所以必须要那样去处理，希望继续指点

追答

大哥，要这样，我差不多就给你做出来整个软件了。。。

追问

不用整个软件，我只要知道怎么去抓label的名字就可以了

Answer 3

要实现你的效果 根本不用拖鼠标选 2个原因 1.程序运行期间 不能选中Label控件的 2.让程序自动根据你的条件统计入住了多少个房间不是更方便吗？ 可以在界面上放一个你输入条件的控件 放一个查询功能的按钮 在按钮的Onclick事件中让程序计算出入住了多少房间 比如放2个Edit 第一个输入开始房号 第二个输入结束房号 点一下查询按钮 就自动算出来了

追问

这样不可以，所选取的房间号会跳开，所以只能按照我想的那样去写。

追答

什么是跳开啊？不明白你的意思。

追问

不一定从1到10啊