Текущий архив: 2004.09.19;
Скачать: 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 вся ветка
Текущий архив: 2004.09.19;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
