Das Rätsel ist gelöst....
Delphi-Quellcode:
procedure TForm2.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source = Memo1 then
begin
(Sender as TEdit).Text := Memo1.Items[Memo1.ItemIndex];
end;
if Source = Memo2 then
begin
(Sender as TEdit).Text := Memo2.Items[Memo2.ItemIndex];
end;
end;
Jetzt muss ich das ganze nur noch auf 24 EditBoxen anwenden und volá
...
