Прокрутка memo через scrollbar

@waretwolf · Регистрация: 30.03.2014

Author24 — интернет-сервис помощи студентам

Приветствую! Возникла следующая проблема: Прокрутка текста в Memo, используя Skrollbar осуществляется только вниз, вверх просто передвигается кнопка прокрутки, а текст остаётся на месте.

Delphi

procedure TForm1.scrollbar1Change(Sender: TObject);
var p:integer;
begin
  if scrollbar1.Position < p
    then
      memo1.Perform(EM_SCROLL,SB_LINEDOWN,0)
    else
      memo1.Perform(EM_SCROLL,SB_LINEUP,0);
  p:=scrollbar1.Position;
 end;

В чём ошибка?

@northener · 30.03.2014, 20:59

Сообщение от waretwolf

В чём ошибка?

Delphi

procedure TForm1.scrollbar1Change(Sender: TObject);
var p:integer;
begin
  if scrollbar1.Position < p

Интересно какое значение в этот момент имеет переменная р? Не возникала в голове такая мысля?

@waretwolf · 30.03.2014, 23:09 **[ТС]**

Да дело в том, что я копировал данный листинг с подобного вопроса на этом форме. Там также использовалась переменная, но другая. На кой чёрт, я сам не понял, но дабы не нарушать целостность, на всяк пожарный её задействовал. Возникает та же ошибка, что и у прошлого вопрошающего, так и не получившего ответ на свой вопрос.

@Fakeoke · 30.03.2014, 23:55

а может сначала P определите, а потом будете сравнивать?

и чем не устроило

Pascal

1	Memo1.ScrollBars:=ssVertical;

@waretwolf · 31.03.2014, 00:45 **[ТС]**

Этот вариант не функционирует, когда memo заблокировано от редактирования. Я создаю текстовый информационный справочник, эта мера нужна для обеспечения чисто пользовательского доступа к информации.

@northener · 31.03.2014, 03:21

Сообщение от waretwolf

Этот вариант не функционирует, когда memo заблокировано от редактирования. Я создаю текстовый информационный справочник, эта мера нужна для обеспечения чисто пользовательского доступа к информации.

А свойство ReadOnly чем не устроило? И редактировать нельзя и родные скроллбары работают.

DenNik · 31.03.2014, 10:44

Сообщение от northener

А свойство ReadOnly чем не устроило? И редактировать нельзя и родные скроллбары работают.

очевидно, мешает курсор и возможность выделения текста

@waretwolf 1 / 1 / 0 Регистрация: 30.03.2014 Сообщений: 91
	30.03.2014, 23:09 [ТС]	3
	Да дело в том, что я копировал данный листинг с подобного вопроса на этом форме. Там также использовалась переменная, но другая. На кой чёрт, я сам не понял, но дабы не нарушать целостность, на всяк пожарный её задействовал. Возникает та же ошибка, что и у прошлого вопрошающего, так и не получившего ответ на свой вопрос. 0

@waretwolf 1 / 1 / 0 Регистрация: 30.03.2014 Сообщений: 91
	31.03.2014, 00:45 [ТС]	5
	Этот вариант не функционирует, когда memo заблокировано от редактирования. Я создаю текстовый информационный справочник, эта мера нужна для обеспечения чисто пользовательского доступа к информации. 0

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	31.03.2014, 03:21	6
	Сообщение от waretwolf Этот вариант не функционирует, когда memo заблокировано от редактирования. Я создаю текстовый информационный справочник, эта мера нужна для обеспечения чисто пользовательского доступа к информации. А свойство ReadOnly чем не устроило? И редактировать нельзя и родные скроллбары работают. 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	31.03.2014, 10:44	7
	Сообщение от northener А свойство ReadOnly чем не устроило? И редактировать нельзя и родные скроллбары работают. очевидно, мешает курсор и возможность выделения текста 0