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

Как перейти в самый верх memo?   Найти похожие ветки 

← →
Дядя Джонсон   (2002-10-17 23:00) [0]

После того как из буфер вставляешь текст в tmemo указатель (курсор) переходит в самый низ. А это есть плохо! Как перевести указатель на самый врех?

---

← →
MBo ©   (2002-10-17 23:01) [1]

SelStart:=0

---

← →
Дядя Джонсон   (2002-10-17 23:15) [2]

memo1.PasteFromClipboard;
memo1.SelStart:=0;

А вот и нет! Не помогает!

---

← →
MBo ©   (2002-10-17 23:24) [3]

Memo1.Perform(WM_VSCROLL ,SB_TOP,0);

---

← →
Дядя Джонсон   (2002-10-18 15:27) [4]

Поверите нет, но Memo1.Perform(WM_VSCROLL ,SB_TOP,0); тоже не помогает!

---

← →
MBo ©   (2002-10-18 15:33) [5]

Не поверю. У меня работает
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
Memo1.Perform(WM_VSCROLL ,SB_TOP,0);
memo1.SelStart:=0;
memo1.SetFocus;
end;

---

← →
Song ©   (2002-10-18 16:44) [6]

После установки TMemo.SelStart надо сделать EM_SCROLLCARET

---

← →
Дядя Джонсон   (2002-10-19 01:09) [7]

Готово. Спасибо всем.

---

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

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



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