Получить текст от символа '<' до ... над котрым находиться курсор
Viola © (2005-01-06 14:35:00)
Еще один вопрос:
Как мне получить текст из RichEdit над которым находиться
курсор мыши. (текст от < до ... )
KSergey (2005-01-06 15:17:00) [1]
Вот прямо курсор мыши???
Что-то такое можно попробовать
sp: TSmallPoint;
p: TPoint;
n: Integer;
p := RichEdit.ScreenToCleint(Mouse.CursorPos);
sp.x := p.x;
sp.y := p.y;
n := RichEdit1.Perform (EM_CHARFROMPOS, 0, Integer(sp));
Inc(n); // не красиво, ну на деле можно будет нормально
сделать
if (n > 0) AND (Length(RichEdit1.Text) <= n) then
RichEdit1.Text[n] - вот тут по идее получаем
символ где-то в районе мыши...
Наверх 
ЧАТ |
Орешник |
|
