На главную
Подписка
Новости










Главная / DELPHI / 38 советов по Delphi / Как выяснить положение курсора в МЕМО? Сделать домашней страницей Добавить в избранное Написать писмо

НАЗАД СОДЕРЖАНИЕ ВПЕРЁД

Как выяснить положение курсора в МЕМО?

Необходимо вызвать дважды API-функцию "SendMessage":

var 
  xChr, 
  xRow, 
  xCol: LongInt;
...

xRow := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
xChr := SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0);
xCol := Memo1.SelStart - xChr + 1;

НАЗАД СОДЕРЖАНИЕ ВПЕРЁД

Hosted by uCoz