Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Редакторы текста, отчеты / Как узнать местонахождение курсора в TMemo.

Как узнать местонахождение курсора в TMemo.

Для этого можно использовать messages EM_LINEFROMCHAR and EM_LINEINDEX из Windows API:

{любая функция или процедура}
var
    LineNum: longint;
   CharsBeforeLine: longint;
   begin
     LineNum := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart,0);{посылка сообщения, возвращающая номер строки}
     CharsBeforeLine := SendMessage(Memo1.Handle, EM_LINEINDEX, LineNum, 0));{посылка сообщения, возвращающая номер столбца}
     Label1.Caption := 'Line ' + IntToStr(LineNum +1);{вывод номера строки}
     Label2.Caption := 'Position ' + IntToStr((Memo1.SelStart -CharsBeforeLine) + 1);{вывод номера столбца}
end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru