Drag'n Drop aus beliebigen anderen Formular

[Maja Jessica]

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