SetFocus и скролл

← →
Alex-21 (2003-07-22 22:26) [0]

Здравствуйте, Мастера!!!
Пишу такой код:
...
RxRichEdit1.SelStart:= RxRichEdit1.Text.Length;
RxRichEdit1.SetFocus;
...

Когда вертикальный скролл находится скажем вверху или в середине RxRichEdit1, передаем фокус этому окну и скролл почему-то перемещается вниз, чтобы была видна каретка. А мне нужно, чтобы скролл не сдвинулся с начального положения, т.е. значение положения скролла оставалось постоянным. Как это делается?
Пробовал писать SetScrollPos() после этого кода, но не помогает.

← →
Alex-21 (2003-07-23 21:45) [1]

Никто не подскажет?!

← →
PKT (2003-07-24 02:13) [2]

Ну, если "в лоб" решать, то что-то вроде этого:

var
SaveLine: Integer;
begin
SaveLine := SendMessage(RxRichEdit1.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
RxRichEdit1.SelStart:= Length(RxRichEdit1.Text);
RxRichEdit1.SetFocus;
SendMessage(RxRichEdit1.Handle, EM_LINESCROLL, 0,
SaveLine - SendMessage(RxRichEdit1.Handle, EM_GETFIRSTVISIBLELINE, 0, 0));

← →
Alex-21 (2003-07-25 14:45) [3]

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

← →
Alex-21 (2003-07-27 20:08) [4]

Есть ли другой способ? Лучше, чтоб вообще не было сдвига скролинга. Заранее спасибо.

> 2 Alex-21

Попробуй заключить
RxRichEdit1.SelStart...
в BeginUpdate... EndUpdate

Чтобы обновление произошло уже после
SendMessage(RxRichEdit1.Handle...

SetFocus и скролл Найти похожие ветки