Советы начинающим


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


Необходимо вызвать дважды 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;








Начало  Назад  Вперед