Moin,
ich frage mich gerade, was da zu den with-Blöcken gehören soll. Ich selber habe den Code nicht durchgetestet sondern nur gesehen, dass die Einrückung komisch aussieht.
Zum Beispiel das hier:
Delphi-Quellcode:
with at do
Listbox2.Items.Exchange(Listbox2.ItemIndex, Pred(Listbox2.ItemIndex));
Listbox1.Items.Exchange(Listbox1.ItemIndex, Pred(Listbox1.ItemIndex));
Was soll der Code machen? Aktuell macht er ähm:
Delphi-Quellcode:
Listbox2.Items.Exchange(Listbox2.ItemIndex, Pred(Listbox2.ItemIndex));
Listbox1.Items.Exchange(Listbox1.ItemIndex, Pred(Listbox1.ItemIndex));
Vermutlich steht in at die Liste drin, in der die Einträge getauscht werden sollen? Dann müsste das so lauten:
at.Items.Exchange(at.ItemIndex, Pred(at.ItemIndex));
Naja ich frage mich auch gerade was du genau vor hast:
Du markierst Zeile X (z.B. 5) in der einen Listbox. Dann soll er die Zeile X der anderen ListBox auch markieren oder? Und das austauschen dann via Drag & Drop?
Und versuch nicht ganz so viele with-Blöcke zu schreiben. Zumindest mich verwirrts irgendwie
MfG
Fabian
PS: Könntest du nicht mal den doppelten Sourcecode rausnehmen? Ich meine zumindest
ListBoxXDragOver und
ListBoxXDragDrop können das ja schon.