| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как узнать номер выделеной строки в Memo? [D6]

elvis79 ©   (2006-03-22 17:04:00) 

как узнать номер выделеной строки и количество выделеных строк в Memo?

---

Gydvin   (2006-03-22 17:51:00) [1]

Попробуйте это

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;

---

MBo   (2006-03-22 17:47:00) [2]

>Что возвратит Memo.SelStart? Мне нужно номер строки, а не символ
Номера строк получишь с помошью EM_*** сообщений

---

zorik   (2006-03-22 17:32:00) [3]

> Ega23 ©   (22.03.06 17:27) [2]
>
> TCustomEdit.SelStart, TCustomEdit.SelLength, TCustomEdit.
> SelText + F1


Что возвратит Memo.SelStart? Мне нужно номер строки, а не символ

---

zorik   (2006-03-22 17:29:00) [4]

> Khim ©   (22.03.06 17:24) [1]
>
> CaretPos Указывает строку и символ расположения курсора.
>
>

Курсор же останется в конце выделеного фрагмента :-(

---

Ega23   (2006-03-22 17:27:00) [5]

TCustomEdit.SelStart, TCustomEdit.SelLength, TCustomEdit.SelText + F1

---

Khim   (2006-03-22 17:24:00) [6]

CaretPos Указывает строку и символ расположения курсора.

---

Наверх