[delphi] Zoek een component

[SiHiDa]

Ik wil graag een soort van ListBox waarmee je met de Items kan slepen ('Move up' and 'Move down'). Welk component is daar geschikt voor?

[jelmervos]

www.torry.net of www.delphipages.com misschien?

[Kool]

Wat dacht je van de TListbox, het superieure listbox component dat standaard bij Delphi zit?

Zet DragMode op Automatic en zet dit in de OnDragOver:
if Source = Sender then
Accept := true;

Dit in OnDragDrop:

var Pos: integer;
SourceListBox, DestListBox: TListBox;
begin
SourceListBox := (Sender as TListBox);
DestListBox := (Source as TListBox);
Pos := DestListBox.ItemAtPos(Point(X, Y), true);
if Pos > -1 then
DestListBox.Items.Insert(Pos, (SourceListBox.Items[SourceListBox.ItemIndex]))
else
DestListBox.Items.Add(SourceListBox.Items[SourceListBox.ItemIndex]);
SourceListBox.Items.Delete(SourceListBox.ItemIndex);
end;

Mazzel

[D2k]

Hoi,
deze thread gaat dicht
Dit is wat wij noemen een scriptrequest en die mogen hier niet.
P&W is gericht op het zelf maken van dingen en in het oplossen van problemen die daarbij kunnen ontstaan.
Kijk bijvoorbeeld eens op www.hotscripts.com of in de P&W faq.
Zie voor discussies: [topic=411717/1/25]