Scroll в конце TMemo

← →
Боян Георгиев (2004-07-22 22:10) [0]

Здравствуйте!
Подскажите мне как скролировать мемо в конце.
Я хочу чтобы юзер всегда видит последний ред текста.

← →
ИдиотЪ (2004-07-23 08:12) [1]

еще раз и без сокращений, плз)

← →
Rouse_ © (2004-07-23 09:21) [2]

На выбор:

SendMessage(Memo1.Handle, WM_VSCROLL, SB_BOTTOM,0);
SendMessage(Memo1.Handle, EM_SCROLLCARET, SB_BOTTOM,0);

← →
MBo © (2004-07-23 09:22) [3]

Memo1.SelStart:=Length(Memo1.Lines.Text)

← →
ИдиотЪ (2004-07-23 09:53) [4]

MBo ©
вообще-то при добавлении Мемо имеет сам гадкую привычку вставать в конце текста
А richedit - наоборот, курсор остается на месте
(это в дельфи5)

← →
KSergey © (2004-07-23 12:31) [5]

1.Если memo в фокусе и пользователь не крутит его скролами сам - то он и так видит место редактирования
2.Если в мемо внесен текст (LoadFromFile, например) - то чтобы после спозиционироваться в конец надо сделать примерно так:

memo.SelStart := Length(memo.Lines.Text);
SendMessage(memo.Handle, EM_SCROLLCARET, 0, 0);

Если именно устанавливать курсор никуда не надо -просто вторая строка.
Но форма и memo должны быть видимы в это время!

> [2] Rouse_ © (23.07.04 09:21)
> SendMessage(Memo1.Handle, EM_SCROLLCARET, SB_BOTTOM,0);

EM_SCROLLCARET не имеет параметров, лишь устанавливает курсор в область видимости (вернее область видимости так, чтобы был виден курсор)

> EM_SCROLLCARET не имеет параметров, лишь устанавливает курсор
> в область видимости (вернее область видимости так, чтобы
> был виден курсор)
Что абсолютно не противоречит заданному вопросу...

Scroll в конце TMemo Найти похожие ветки