Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизRichEditControl Найти похожие ветки
← →
MBo (2002-01-15 10:06) [1]это просто SelStart, а если отбрасывать переводы строк, то будет так
var
LineNum: integer;
begin
LineNum := SendMessage(re1.Handle, EM_LINEFROMCHAR, re1.SelStart, 0);
Label1.Caption :=IntToStr(re1.SelStart-2*LineNum);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c