初学者的初级问题：如何实现简单的拖动操作？

Question

在我的Form1上有两个TListBox:
我想实现这样的效果，能鸲把ListBox1中的条目拖到ListBox2中，请问该如何操作？

Answer 1

设置ListBox1的DragMode属性为dmAutomatic，
然后在ListBox2的DragOver和DragDrop事件中：procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source = ListBox1 then Accept := True;
end;procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source = ListBox1 then
    ListBox2.Items.Insert(ListBox2.ItemIndex, ListBox1.Items[ListBox1.ItemIndex]);
end;