Hi
Ja Prima, klappt wunderhübsch
Delphi-Quellcode:
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
SourceBox, TargetBox : TListBox;
begin
if ((Sender is TListBox) and (Source is TListBox)) then
begin
SourceBox := TListBox(Source); // da kommen die Daten her
TargetBox := TListBox(Sender); // da sollen sie hin
TargetBox.Items.Add(SourceBox.Items[SourceBox.ItemIndex]);
SourceBox.Items.Delete(SourceBox.ItemIndex);
end;
end;
So der grobe Ansatz (frei kopiert und angepasst), natürlich fehlen noch diverse Prüfungen etc.
Und ich hatte mich in den Gedanken verrannt ich müsse die Quellform und die ListBox auf der Quellform beide über ihre Namen ansprechen.
Auf den einfacheren Weg, SourceBox := TListBox(Source), der alle benötigten Informationen mitliefert, bin ich natürlich nicht gekommen.
Herzlichen Dank nochmal!
MJ