| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Memo и прокрутка

Vendict ©   (2007-09-16 14:14:00) 

Как застваить Memo прокрутить скрол на самый верх ?

---

Vendict   (2007-09-17 00:11:00) [1]

Спасибо .

---

{RASkov}   (2007-09-16 16:00:00) [2]

> [0] Vendict ©   (16.09.07 14:14)

Со сменой позиции каретки:
procedure SetLine(AMemo: TCustomMemo; const Line: Cardinal);
begin
 with AMemo do begin
  SelLength:=0;
  SelStart:=Perform(EM_LINEINDEX, Line, 0);
  Perform(EM_SCROLLCARET, 0, 0);
 end;
end;

//Вызов SetLine(Memo, 0);

И без смены(только прокрутка):
Memo.Perform(EM_LINESCROLL, 0, - Memo.CaretPos.Y);

---

Наверх