关于鼠标拖拽的问题

Question

把listbox1的内容拖拽到listbox2
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);      
begin
      ListBox1.Items.Add(ListBox2.Items.Strings[listbox2.itemindex]);
      ListBox2.Items.Delete(listbox2.itemindex);
end;
procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Accept:=true;
end;以上的代码就可以实现但是我发现 把ListBox2的DragOver改成
procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//Accept:=true;
end;
或者
procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//12345
end;完全没有影响但是把ListBox2的DragOver事件去掉 就不行了
请问
procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//12345
end;
和  去掉这个事件有什么不同啊？

Answer 1

本帖最后由 bdmh 于 2010-11-04 11:25:26 编辑