Текущий архив: 2007.12.09;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.028 c