Strings aus TListBox in Edit...

[Sharky]

Hai Knotti2005,

warum castest Du nicht auch Source auf ein TMemo (war da nicht vorher von einer ListBox die rede)?

Delphi-Quellcode:

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

Zitat:

Jetzt muss ich das ganze nur noch auf 24 EditBoxen anwenden ...

Du musst ja nur allen (betroffenen) Edits die Selben Methoden für die Ereignisse zuweisen.