Ich hab es jetzt so...
Delphi-Quellcode:
procedure TForm2.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Sender as TEdit).Text := Memo1.Items[Memo1.ItemIndex];
(Sender as TEdit).Text := Memo2.Items[Memo2.ItemIndex];
end;
procedure TForm2.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source = Memo1 then
begin
Accept := true;
end
else
if Source = Memo2 then
begin
Accept := true;
end;
end;
Meine Listboxen heisen Memo1 und Memo2.... Und jetzt bekomme ich die Meldung Listenindes übersteigt das Maximum (-1)...