listbox中如何将某节点在任意位置进行拖放，和delphi字段编辑器中一样。

[lyq]

[王集鹄]

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

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with TLabel.Create(Self) do begin
Parent := Self;
Caption := TListBox(Source).Items[TListBox(Source).ItemIndex];
Left := X;
Top := Y;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.DragMode := dmAutomatic;
end;

[王集鹄]

行不行请回话？

[taxi]

^

[王集鹄]

发帖子的人呢?

[taxi]

跑了。