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

Вниз

Memo-scrolling   Найти похожие ветки 

← →
AlexF   (2005-10-28 16:11) [0]

Может ламерский вопрос но что я только не пробовал. Помогите пожайлуста:

procedure Tfrm_start.FormCreate(Sender: TObject);
begin
try
frm_start.Memo1.Lines.LoadFromFile(....);
//чево дописать чтобы после открытия формы я видел в мемо последнюю строку загруженого файла
except
 on E:EFOpenError do .....;
end;
end;


---

← →
clickmaker ©   (2005-10-28 17:08) [1]

SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count);

---

← →
Leonid Troyanovsky ©   (2005-10-28 18:31) [2]

> clickmaker ©   (28.10.05 17:08) [1]
> SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.
> Count);


> //чево дописать чтобы после открытия формы я видел в мемо

Memo1.Perform(EM_SCROLLCARET, 0, 0); // прокрутить в позицию карета

--
Regards, LVT.

---

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

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

Наверх

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