Скачать: CL | DM;

курсор в memo   Найти похожие ветки 

← →
Rustam01   (2008-05-14 21:59) [0]

добрый ночи, мастера..
вопрос такой: как можно узнать местоположение курсора в memo?(на какой строчке находится курсор)

---

← →
Rustam01   (2008-05-14 22:05) [1]

спасибо, нашел;)
{любая функция или процедура}
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;

---

← →
Palladin ©   (2008-05-14 22:52) [2]

TMemo.CaretPos придумали для тупых америкософф... настоящие пионЭры не ищут легких путей...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c