Postition des Cursors beim Drag & Drop im Memo herausfinden

[Mysterio08]

Guten n'Abend,

folgende Situation: ich habe zwei Formulare, auf einem befindet sich eine TMemo-Komponente, auf dem anderen eine TListBox. Jetzt möchte ich per Drag & Drop Inhalt aus der ListBox ins Memo ziehen - das klappt. Aber ich bin in sofern eingeschränkt, als dass ich den Text immer nur mit Add anhängen kann. Ich würde es aber gerne so machen, dass man auch zwischen Buchstaben den Text einfügen kann. Ich weiß nur nicht wie, ich hab mir schon Insert angeschaut, aber nicht erfolgreich.

Ist das mit einem TMemo möglich oder muss ich auf ein TRichEdit umsteigen?

mfg.

[toms]

ungetestet:

Delphi-Quellcode:

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

[Mysterio08]

Zitat:

Zitat von toms

ungetestet

Nevertheless it works!

Vielen Dank