Drag&Drop in 2 TListbox'en :-)

[SeeAAL]

also ich bin dafür wohl echt zu doof
hab jetzt hier rumgesucht und die hier vorhanden source codes ausprobiert aber dennoch wills nicht so recht.

wie gesagt
ich habe 2 listboxen und will von der einen in die andere ziehen, mehr nicht, und ja ich weiss ist schon sehr oft behandelt worden hier *g*

mir würd es aber auch schon reichen wenn mir einer eben die ereignisse dragover und dragdrop erklärt, damit ich das schonmal verstehe

danke schonmal im voraus, auch an die die meckern das es dieses thema schon oft genug gab :-)

[SeeAAL]

oki habs schon :)

hach und dafür die ganze aufregung

und für alle die es auch suchen ->

Code:

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source = ListBox1;
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source = ListBox1 then
    begin
      ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
      ListBox1.Items.Delete(listbox1.itemindex);
    end;
end;