| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как перейти в самый верх memo?
Дядя Джонсон © (2002-10-17 23:00:00)После того как из буфер вставляешь текст в tmemo указатель (курсор) переходит в самый низ. А это есть плохо! Как перевести указатель на самый врех?
Дядя Джонсон (2002-10-19 01:09:00) [1]Готово. Спасибо всем.
Song (2002-10-18 16:44:00) [2]После установки TMemo.SelStart надо сделать EM_SCROLLCARET
MBo (2002-10-18 15:33:00) [3]Не поверю. У меня работает
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
Memo1.Perform(WM_VSCROLL ,SB_TOP,0);
memo1.SelStart:=0;
memo1.SetFocus;
end;
Дядя Джонсон (2002-10-18 15:27:00) [4]Поверите нет, но Memo1.Perform(WM_VSCROLL ,SB_TOP,0); тоже не помогает!
MBo (2002-10-17 23:24:00) [5]Memo1.Perform(WM_VSCROLL ,SB_TOP,0);
Дядя Джонсон (2002-10-17 23:15:00) [6]memo1.PasteFromClipboard;
memo1.SelStart:=0;
А вот и нет! Не помогает!
MBo (2002-10-17 23:01:00) [7]SelStart:=0
| |
