Postition des Cursors beim Drag & Drop im Memo herausfinden

[toms]

ungetestet:

Delphi-Quellcode:

Memo1.SelStart := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y)));
Memo1.SelText := '....';