Скачать: CL | DM;

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

← →
pavelgr ©   (2004-09-05 16:37) [0]

здраествуйте! Есть такая проблема: имеется компонент tmemo, в котором нужно перейти на определенную строку и определенное место в этой стороке и после этого ещё и нажать клавишу enter, т.е. после установки курсора на определенное место перевести всё, что есть за курсором на новую строку

---

← →
Defunct ©   (2004-09-05 16:53) [1]

перейти к позиции: SelStart
выделить: SelCount
вставить: SelText := #13+#10; // перевод каретки + перевод строки:

---

← →
Defunct ©   (2004-09-05 16:55) [2]

> // перевод каретки + перевод строки

чит. возврат каретки + перевод строки

---

← →
dim- ©   (2004-09-06 00:51) [3]

в TMemo не пробовал, а для TRichedit

Procedure setline(WhichEdit:TRichedit;Linepos,charpos:integer);
Begin
with WhichEdit do
begin
 selstart:=perform(EM_LineIndex,Linepos,0)+charpos;
 perform(EM_ScrollCaret,0,0);
end;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c