Strings aus TListBox in Edit...

[Knotti2005]

Kann ich das mit

Delphi-Quellcode:

procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source = ListBox1 then
    begin
      Accept := true;
    end;
end;

procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  (Sender as TEdit).Text := ListBox1.Items[ListBox1.ItemIndex];
end;

usw... bei den Edits für alle Machen ich habe 24 Stück das ist ein wenig viel...

Und dann noch ich habe 2 mal Listboxen...
Ich bin shcon am probieren mit der 1 Listbox geht es mit der 2 aber nett...