---

Hej NG

Hvordan gør man det? (Håber subj er forklarende nok)

/ao

---

Hej Anders,

"Anders Olsen" <waup-leavemeout-@punkass.com> wrote in message
news:ofhvttkglnuoki1f7gj3hq79iuo4h21cih@4ax.com...
> Hvordan gør man det? (Håber subj er forklarende nok)

Her er et lille og meget simpelt eksempel, der viser implementationen af
TreeView's OnDragOver og OnDragDrop eventhandlere:

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

procedure TForm1.TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with Source as TListBox do
TreeView.Items.Add(nil, Items[ItemIndex]);
end;

desuden skal du sørge for at sætte DragMode på din TListBox til
dmAutomatic... eksemplet viser en meget simpel administration af TreeView
som du kan udvide, hvis du f.eks. ønsker at man skal kunne dragge til en
bestemt TreeNode... men jeg håber at ovenstående kan anvendes som
inspiration.

Cheers,
Thomas