获取Richedit当前光标处的词

获取Richedit当前光标处的词

uses

RichEdit;

　

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);

var

iCharIndex, iLineIndex, iCharOffset, i, j: Integer;

Pt: TPoint;

s: string;

begin

with TRichEdit(Sender) do

begin

Pt := Point(X, Y);

// Get Character Index from word under the cursor

iCharIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt));

if iCharIndex < 0 then Exit;

// Get line Index

iLineIndex := Perform(EM_EXLINEFROMCHAR, 0, iCharIndex);

iCharOffset := iCharIndex - Perform(EM_LINEINDEX, iLineIndex, 0);

if Lines.Count - 1 < iLineIndex then Exit;

// store the current line in a variable

s := Lines[iLineIndex];

// Search the beginning of the word

i := iCharOffset + 1;

while (i > 0) and (s[i] <> ' ') do Dec(i);

// Search the end of the word

j := iCharOffset + 1;

while (j <= Length(s)) and (s[j] <> ' ') do Inc(j);

// Display Text under Cursor

Caption := Copy(s, i, j - i);

end;

end;