Zeigerposition in Synedit herausfinden

[Markus K.]

Hallo,
du kannst es ja mal folgend versuchen.

Delphi-Quellcode:

var 
  CharPos: TPoint; 
begin 
  CharPos.Y := SendMessage(SynEdit1.Handle, EM_EXLINEFROMCHAR, 0,
    SynEdit1.SelStart);
  CharPos.X := (SynEdit1.SelStart -
    SendMessage(SynEdit1.Handle, EM_LINEINDEX, CharPos.Y, 0));
  Inc(CharPos.Y); 
  Inc(CharPos.X);