wenn Absender und Source die Listboxen wären, so etwa :
Delphi-Quellcode:
procedure TForm1.ListBox4DragDrop(Sender, Source: TObject; X, Y: Integer);
var
lbSource,lbSender : TListBox;
begin
lbSource := Source as TListBox;
lbSender := Sender as TListbox;
lbsender.Items.Add(lbSource.Items[lbSource.ItemIndex];
lbSource.Items.Delete (lbSource.ItemIndex);
end;
Bernd
P.S Was dein addItem da bezweckt und mit Zeilen hin und herschieben zu tun hat wüsste ich ja auch mal gerne
