Text markieren und dann per Drag and Drop verschieben

[messie]

Zitat von Andifeatable:

-Wenn der komplette Text in edtDrag1 markiert wird kann man nix anderes mehr markieren und diese Markierung nicht mehr los werden (Es sei denn man schreibt einen neuen Text oder verschiebt die Markierung )
-Tastatureingaben sind nicht berücksichtigt
-Markierter Text kann genau einmal verschoben werden
-Wenn ein Text markiert wird aber nicht verschoben sondern ein anderer Teil des Textes wiederum markiert kann der nicht verschoben werden
ist mir jetzt mal auf die Schnelle aufgefallen

Dachte evtl. geht das ganze auch einfacher/schneller oder ist auch schon vorgefertigt da "markieren-und-verschieben" ja eigentlich eine Standard-Windows-Funktion ist.

Komisch, bei mir geht das fast alles.

Ich hatte gleich eine kleine Ergänzung eingebaut

Delphi-Quellcode:

procedure TfrmDragDrop.edtDrag2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  EdtDrag2.Text := EdtDrag1.SelText;
  EdtDrag2.SetFocus;
  EdtDrag1.SelStart := 0;
  EdtDrag1.SelLength := 0;
end;

Damit ist der Focus dort, wo man weiterarbeiten will und man kann danach wieder beliebig ins edtDrag1 zurückgehen und dort neue Dinge tun.

Grüße, Messie