Положение курсора в МЕМО


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;
Теги:
МЕМО
Добавлено: 31 Июля 2018 08:41:01 Добавил: Андрей Ковальчук Нравится 0
Добавить
Комментарии:
Нету комментариев для вывода...