|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.06.2010, 18:19 | #1 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
Прокрутить скролл в TMemo на начало
Здравствуйте! На форме есть компонент TMemo с вертикальными скроллами. Например, я перемешаю бегунок скролла на середину, как мне по нажатию кнопки вернуть его в начальную позицию, то есть позицию 0 ?
|
26.06.2010, 18:29 | #2 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 16,220
|
Код:
Цитата:
E-Mail: arigato.freelance@gmail.com
|
|
26.06.2010, 18:37 | #3 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
С вертикальным Хотел кстати выправить, но как раз открыл делфу и опять соображал как можна реализовать эту проблему А тут вы уже отписали... Спасибо!
|
28.06.2010, 09:17 | #4 |
кривокодер ;)
Форумчанин
Регистрация: 20.06.2008
Сообщений: 707
|
PostMessage(MainForm.Memo1.Handle, WM_VSCROLL, SB_BOTTOM, 0);
это вниз... по памяти могу соврать, но вверх - это SB_TOP
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид} |
27.01.2014, 17:23 | #5 |
Регистрация: 30.08.2010
Сообщений: 9
|
Здравствуйте!
Решил задать вопрос в эту тему, чтобы не создавать новую. Подскажите, пожалуйста! Этим кодом я прокручиваю скролл у RichEdit1. (код конечно демонстрационный, но принцип отражает) with RichEdit1 do begin // указываем позицию курсора на нужную строку selstart:=perform(EM_LineIndex, 1, 0); sellength:=1; // выделяем perform(EM_ScrollCaret,0,0); // прокручиваем скролл SetFocus; // фокус end; Всё работает нормально. Но если я добавляю в uses модуль RichEdit (uses RichEdit), то сообщение: perform(EM_ScrollCaret,0,0); перестаёт работать, т.е. скролл не прокручивается. Позиция ставится, строка выделяется, но скролл не прокручивается! Как только убираю модуль RichEdit из uses, всё работает. Дело в том, что, этот модуль мне нужен для увеличения количества символов вводимых в RichEdit, с помощью сообщения: SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0); Если кто сталкивался с этим явлением, подскажите, пожалуйста, в чём причина? Заранее спасибо! |
28.01.2014, 10:59 | #6 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,759
|
Значит метод perform в этом юните переопределен. Используй с именем модуля, например Windows.Perform
|
28.01.2014, 11:23 | #7 | |
Участник клуба
Регистрация: 29.09.2008
Сообщений: 1,234
|
или поменяй uses местами
Цитата:
посмотри ее значение в модуле и вставь в свой Unit |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Горизонтальный скролл!!! | AK BULLETS | Общие вопросы Delphi | 2 | 26.03.2010 22:17 |
скролл бар | Abuhamed | HTML и CSS | 3 | 16.03.2010 14:27 |
ListView - убрать скролл. | Belfigor | Общие вопросы Delphi | 3 | 03.03.2010 19:39 |
Скролл в Word | viter.alex | Microsoft Office Word | 3 | 27.01.2009 23:41 |