Hi danke für die Antwort, klappt bei mir leider nicht.
Ich habe aber gerade eine Lösung gefunden:
Delphi-Quellcode:
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
Memo1.SelStart := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y)));
end;
Ansatz:
http://www.swissdelphicenter.ch/de/showcode.php?id=1538
Interessant fände ich aber trotzdem wenn man es auch auf obige weise lösen könnte, ohne das man hier ein
Handle braucht.