Drag and drop

[Bernd Ua]

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