Текущий архив: 2004.12.19;
Скачать: CL | DM;

Вниз

Cursor   Найти похожие ветки 

← →
Bobby Digital ©   (2004-12-04 04:27) [0]

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

---

← →
Leonid Troyanovsky   (2004-12-04 10:33) [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.

---

Страницы: 1 вся ветка

Текущий архив: 2004.12.19;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.05 c