Текущий архив: 2008.06.08;
Скачать: 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 вся ветка
Текущий архив: 2008.06.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
