现在实现了两个listbox的相互拖拽 怎么实现禁止他们的自身拖拽？ 50分 在线 可行方案 立马给分

[genispan]

现在实现了两个listbox的相互拖拽 怎么实现禁止他们的自身拖拽？

[blazingfire]

Accept := (Source <> Sender) and (Source Is TListBox)

[blazingfire]

在OnDragOver事件中写以上代码

[genispan]

   if ((Source Is TFileListBox) and (Source  <> Sender))  or ((Source Is TDirectoryListBox) and (Source  <> Sender)) then
     Accept:=True;  // accept drag operation

我这样写 还是可以自身拖拽啊

[genispan]

大哥 再帮我下 急啊

[genispan]

我明白了 谢谢了 o(∩_∩)o...哈哈

[GDTOPONE]

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

2:在Listbox1的onDragOver事件中写入:


Delphi(Pascal) code
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Sender is TListBox then
Accept:=true;
end;




3:在Listbox1的onDragDrop事件中写入:


Delphi(Pascal) code
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
TListBox(sender).Items.Add(TListBox(Source).Items[TListBox(Source).itemindex]);
TListBox(Source).Items.Delete(TListBox(Source).itemindex);
end;




4:Listbox2的onDragOver事件指向Listbox1的onDragOver事件,onDragDrop事件指向Listbox1的onDragDrop的事件.

[GDTOPONE]

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

2:在Listbox1的onDragOver事件中写入:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; 
  State: TDragState; var Accept: Boolean); 
begin 
   if Sender is TListBox then 
  Accept:=true; 
end; 

3:在Listbox1的onDragDrop事件中写入:

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); 
begin 
 TListBox(sender).Items.Add(TListBox(Source).Items[TListBox(Source).itemindex]); 
 TListBox(Source).Items.Delete(TListBox(Source).itemindex); 
end; 

4:Listbox2的onDragOver事件指向Listbox1的onDragOver事件,onDragDrop事件指向Listbox1的onDragDrop的事件.

[genispan]

好了 搞定了 给分

[genispan]

to GDTOPONE
我拖拽已经实现了
只是要禁止自身拖拽而已