Проблема с RichEdit

← →
jiuraf (2004-04-07 22:27) [0]

Есть RichEdit и кнопка.Я пишу код:

procedure TForm1.Button1Click(Sender: TObject);
Var
I:Integer;
begin
For i:=1 to 32 do
If i mod 15 =0 then Begin
RichEdit1.SelStart:=10;
RichEdit1.SelLength:=6;
RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit1.SelStart:=length(RichEdit1.Lines.text);
RichEdit1.SelLength:=0;
{RichEdit1.Text:=RichEdit1.Lines.text+"sdfsdfdssdfsdfsdfsd`"; }
end;
end;

Если кодтакой как написан то все работает (часть текста RuchEdit выделяется)
Если снять комментарий последней строчки то выделения не происходит.Почему? и как все таки выделять текст при добавлении новых строк?

← →
Camypau (2004-04-07 22:51) [1]

можно встречный вопрос :зачем цикл то тут?
просто пишешь SelStart := начало выделения
SelLength := Длина строки
когда SelLength = 0 то он просто курсор перемещает

а чтобы позицию курсора получить там сообщения есть

← →
jiuraf (2004-04-07 22:56) [2]

Относительно циекла - это просто упрощенный пример.Ту программу котрую я делаю, там цикл необходим.
Но я так и не понял твоего ответа, ты мог бы пояснить

← →
Camypau (2004-04-07 23:37) [3]

думаю SelLength := 0 не нужно ставить, поскольку это сбрасывает выделение, ьам должен указываться размер выделенной области.
Начало выделенного текста указывается в SelStart и находится при помощи сообщений RichEdit"a для строки с определённым номером
(ну если тебе надо 100-ую строку выделить то не надо бежать в цикле)

Проблема с RichEdit Найти похожие ветки