курсор в 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;

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

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