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]

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

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

в 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;

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