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

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

Cursor

Bobby Digital ©   (2004-12-04 04:27:00) 

как определить сткроку в которой находится курсов в RichEdit

---

Leonid Troyanovsky   (2004-12-04 10:33:00) [1]

> Bobby Digital ©   (04.12.04 04:27)  
> как определить сткроку в которой находится курсов в RichEdit



var
 Row, Col : Longint;
begin
 with RichEdit1 do
   begin
    Row := Perform(EM_EXLINEFROMCHAR, 0, SelStart);
    Col := SelStart - Perform(EM_LINEINDEX, Row, 0);
   end;
 StatusBar1.SimpleText := Format(sColRowInfo, [Row, Col]);
end;


--
С уважением, LVT.

---

Наверх