Форум: "Основная";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Vendict ©   (2007-09-16 14:14) [0]

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

---

← →
{RASkov} ©   (2007-09-16 16:00) [1]

> [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);

---

← →
Vendict ©   (2007-09-17 00:11) [2]

Спасибо .

---

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

Форум: "Основная";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.043 c