Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Вниз
как узнать номер выделеной строки в Memo? Найти похожие ветки
← →
elvis79 (2006-03-22 17:04) [0]как узнать номер выделеной строки и количество выделеных строк в Memo?
← →
Khim © (2006-03-22 17:24) [1]CaretPos Указывает строку и символ расположения курсора.
← →
Ega23 © (2006-03-22 17:27) [2]TCustomEdit.SelStart, TCustomEdit.SelLength, TCustomEdit.SelText + F1
← →
zorik © (2006-03-22 17:29) [3]
> Khim © (22.03.06 17:24) [1]
>
> CaretPos Указывает строку и символ расположения курсора.
>
>
Курсор же останется в конце выделеного фрагмента :-(
← →
zorik © (2006-03-22 17:32) [4]
> Ega23 © (22.03.06 17:27) [2]
>
> TCustomEdit.SelStart, TCustomEdit.SelLength, TCustomEdit.
> SelText + F1
Что возвратит Memo.SelStart? Мне нужно номер строки, а не символ
← →
MBo © (2006-03-22 17:47) [5]>Что возвратит Memo.SelStart? Мне нужно номер строки, а не символ
Номера строк получишь с помошью EM_*** сообщений
← →
Gydvin © (2006-03-22 17:51) [6]Попробуйте это
function starpos(fmemo1:TCustomMemo):string;
var
iX,iY : Integer;
begin
iX := 0; iY := 0;
iY := SendMessage(fmemo1.Handle, EM_LINEFROMCHAR, fmemo1.SelStart,
0);
iX := fmemo1.SelStart - SendMessage(fmemo1.Handle, EM_LINEINDEX,
iY, 0);
result := IntToStr(iY + 1) + ":" + IntToStr(iX + 1) ;
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c
