Luckie, hast ja recht, aber ich will das jetzt nicht umsonst aus meinem Code herausoperiert haben:
Delphi-Quellcode:
procedure TMainForm.MemoClick(Sender: TObject);
var
p: TPoint;
begin
GetCursorPos(p);
p := Memo.ScreenToClient(p);
Memo.SelStart := LoWord(SendMessage(Memo.Handle, EM_CHARFROMPOS, 0, p.Y shl 16 + p.x));
end;
Grüße vom marabu