请问如何全选？一个我不知道的问题。

[xiangding]

我在delphi应用程序窗体上放了四个button，当我的程序运行时，
四个button当然是不可移动的，
我要实现在运行时就像delphi在设计时那样，可以全部选中四个button,
并且随便拖动？
哪有这样的资料?

[hammer_shi]

给你一个例子

比如窗体上有两个Listbox，下面将Listbox2中的项目拖到ListBox1中

将两个Listbox的DragMode属性设为dmAutomatic.

拖放经过事件

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

begin

if TListBox(Source)=ListBox2 then

Accept:=true;

end;

//拖放落下事件

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

ListBox1.Items.Add(Listbox2.Items[ListBox2.ItemIndex]);

end;


你也可以看看论坛上以前的问题!搜索一下

[xiangding]

楼上的兄弟:你说的是拖动的事件，和我要的还差点。
不过也非常感谢你了。