Listview-Items zu anderen Komponten draggen

[mz23]

Zitat von Bummi:

bei DragMode=dmAutomatic beispielsweise so

Delphi-Quellcode:

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TListBox(Sender).Items.Add(TListView(Source).Items[TListView(Source).ItemIndex].Caption)
end;

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

Danke Bummi,
diese Lösung werde ich mir kopieren.
Werde das bestimmt auch mal benötigen.

Toll, was manche von Euch draufhaben - Respekt.
Schöne Grüße aus Nürnberg,
Manfred