Per Drag&Drop Items aus ner Listbox an ne andere "hängen"

[Nalincah]

Leider hab ich per Suche nichts passendes gefunden und hoffe das gabs noch nicht (was ich eigentlich nicht glaub

Ich hab ne Listbox mit 10 Einträge. Jetzt will ich nen Eintrag auswählen, und diesen dann in ne andere Listbox schieben
Wenn man in der Ziel-Listbox nen Eintrag auswählt und z.b. über der Form "fallen" lässt, soll der gelöscht werden.

Wie gehts das? Hab zwar schon mit Drag-Eigenschaften zum probiert, aber leider nichts passendes erreicht

[Luckie]

Zeig mal, was du schon erreicht hast.

[scp]

Beim Form und bei den Listboxen muss Dragmode auf dmAutomatic gestellt werden. Der Rest geht so:

Delphi-Quellcode:

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  If (Source.ClassName = 'TListBox') then
    begin
      ListBox1.Items.Add( TListBox(Source).Items[TListBox(Source).ItemIndex] );
      TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
    end;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  If (Source.ClassName = 'TListBox') then
    Accept := true;
end;

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  If (Source.ClassName = 'TListBox') then
    Accept := true;
end;

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  If (Source.ClassName = 'TListBox') then
    begin
      TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
    end;
end;

[Nalincah]

Zitat:

Zitat von Luckie

Zeig mal, was du schon erreicht hast.

Nicht viel..Nur das ich aufeinmal die ListBox in nem eigenem Fenster hatte und wenn ich das geschlossen hab war die listbox weg :gruebel: