MouseOver bei RichEdit oder Memo

[Sharky]

Zitat von n0b0dy:

.. Vllt kannste daraus ja was basteln, wenn das unbedingt MouseOver sein soll..

Dafür gibt es das Ereigniss OnMouseCursor
Notwendig ist es die Unit SynEditTypes einzubinden.

Delphi-Quellcode:

procedure TForm1.SynEdit1MouseCursor(Sender: TObject;
  const aLineCharPos: TBufferCoord; var aCursor: TCursor);
begin
  Label1.Caption := SynEdit1.GetWordAtRowCol(aLineCharPos);
end;