/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Drag listbox.item over i et treeview?
Fra : Anders Olsen


Dato : 31-10-01 10:37

Hej NG

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

/ao

 
 
Thomas Rose (31-10-2001)
Kommentar
Fra : Thomas Rose


Dato : 31-10-01 18:21

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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste