Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by martinf16,
6. Sep 2009
Richtig, richtig, der Code taucht auch immer wieder in abgewandelter Form irgendwo auf..
Ich habs jetzt noch einmal getestet in einer ganz neuen Anwendung, aber da funktionierts plötzlich. Anscheinend gibts bei mir im Programm irgendwelche anderen Wechselwirkungen, das wird eine lange Nacht! ;)
Edit:
Ich habe die Lösung gefunden. Für alle, die es interessiert, weil sie ein ähnliches...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by martinf16,
6. Sep 2009
Hallo,
ich benutze folgenden Code um per Drag and Drop die Items einer ListView zu verschieben. Also zum Beispiel das erste mit dem letzten per Maus auszutauschen:
//ListView OnDragDrop
procedure TListViewForm.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer) ;
var
currentItem, nextItem, dragItem, dropItem : TListItem;
begin
if Sender = Source then