Скачать: CL | DM;

Прокрутка в Memo   Найти похожие ветки 

← →
XProger ©   (2004-11-24 02:12) [0]

По мере работы программы в Memo добавляется неий текст. Как вертикальный скроллбар этой мемо протянуть вниз, до самого конца текста?
Пытался посылать SendMessage на Memo.Handle ничего не вышло... :(

---

← →
MTsv DN   (2004-11-24 10:04) [1]

Привет, XProger ©...

Вот ответ на твой вопрос...
////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: PObj);
var
i : integer;
begin
for i := 0 to 1000 do
 begin
  Form1.Memo1.Add("Line "+int2str(i)+#13#10);
  Form.ProcessMessages;
  SendMessage(Memo1.Handle, EM_SCROLL, SB_BOTTOM, 0);
 end;
end;
////////////////////////////////////////////

Успехов... MTsv DN

---

← →
Gandalf ©   (2004-11-24 10:48) [2]

Пожалуй побавлю в FAQ

---

← →
Владимир Кладов   (2004-11-24 16:13) [3]

или так:
 Memo1.Add( Txt + #13#10 );
 Memo1.SelStart := MaxInt;
 Memo1.Perform( EM_SCROLLCARET, 0, 0 );


---

← →
XProger ©   (2004-11-24 18:44) [4]

MTsv DN, Большое спасибо...
Владимир Кладов, и тебе тож за аналогичный способ...

Просто я - извращенец, и писал что-то наподобии этого :)
while (LOWORD(SendMessage(MemoHandle, EM_SCROLL, SB_PAGEDOWN,0))<> 0) do;
Хотя должно было работать :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.947 c