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

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

Вставка в мемо


фыва ©   (2007-10-15 17:43:00) 

Всем привет!
Мне нужно узнать номер какой строки выделен в одном мемо и, в зависимости от этого, ввести в другой мемо строку, в положение курсора. Как это сделать?
Заранее благодарен.


Leonid Troyanovsky   (2007-10-15 19:12:00) [1]


> фыва   (15.10.07 18:12) [2]


> а)В общем в первом мемо нужно найти на какой строке выделение

var
  Linenum, Charnum: Integer;
..
 Linenum := Memo1.Perform(EM_LINEFROMCHAR, -1, 0);
 Charnum := Memo1.Perform(EM_LINEINDEX, Linenum, 0);


> б)А как вставить текст?

Seltext := '..'

--
Regards, LVT.


фыва   (2007-10-15 18:12:00) [2]


> Ну если WordWrap=False тогда TMemo.CaretPos

а)В общем в первом мемо нужно найти на какой строке выделение - как это сделать? CaretPos даст координаты в пикселах, а как их перевести в строки?
Ну, и во-втором так же.
б)А как вставить текст?


Palladin   (2007-10-15 17:53:00) [3]

Ну если WordWrap=False тогда TMemo.CaretPos


Наверх

Титульная страница Поиск, карта сайта Написать письмо