colaka - Sa 01.10.11 15:32
Titel: Text in Editfeld einfügen

---

Hallo,

ich möchte an der aktuellen Cursorposition eines Editfeldes per Button den Inhalt eines anderen Editfeldes eintragen. Der Text vor und nach dem Cursor soll aber stehenbleiben. An der aktuellen Cursorposition soll also praktisch der Text des anderen Editfeldes dazwischengeschoben werden.

Wahrscheinlich müsste ich dazu die aktuelle Cursorposition zuerst ermitteln.

Aber wie?

Danke Ebi

BenBE - Sa 01.10.11 15:36

---

Die Position des Cursors erhältst Du mit TEdit.SelPos, deren Länge mit TEdit.SelLength und den markierten Text mit TEdit.SelText.

Zum Ausschneiden von Textbereichen kannst Du Copy verwenden. Als Parameter für die Länge bietet sich für den zweiten Teil der Wert MaxInt an, da Copy bei Überschreitung des Endes automatisch nur bis zum Ende kopiert.