Прокрутка текста Memo, используя TTimer показывает только первые 3 линий

Question

, что я пытаюсь сделать прямо сейчас, чтобы создать scroling кредитного текста с помощью компонента ТМеты и TTimer

procedure TAboutBox.Timer1Timer(Sender: TObject); 
begin 
Memo1.ScrollBy(0,-1); 
end; 

линии ТМето содержит текст кредит, что-то вроде:

Thankyou для:
Junifer лямда
Exemple пользователя 2
Coder Monalisa
и т.д. и т.п.

Все работает так, как ожидалось, я установил timer.interval на 1 мс, текст прокручивается плавно, но он отображает только 3 первые строки, тогда он отображает пустое пространство, если я не щелкнул и не перетащил вручную, используя мышь внутри заметки, то он отображает некоторые строки, затем он исчезает снова, когда я отпускаю.

Я пробовал как с TRichedit, так и с TListBox, но проблема не устранена. Как это могло произойти ?

Answer 1

Мне кажется, что ScrollBy не предназначен для того, чтобы делать то, что вы желаете. Более того, я не думаю, что нужен TMemo.

Я бы сделал это с помощью ярлыка и переместил его на событие таймера. Как это:

procedure TScrollingTextForm.FormCreate(Sender: TObject); 
begin 
    Label1.Caption := 
    'Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do '+ 
    'eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad '+ 
    'minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip '+ 
    'ex ea commodo consequat. Duis aute irure dolor in reprehenderit in '+ 
    'voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur '+ 
    'sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt '+ 
    'mollit anim id est laborum.'; 
    Label1.Top := ClientHeight; 
end; 

procedure TScrollingTextForm.Timer1Timer(Sender: TObject); 
begin 
    Label1.Top := Label1.Top - 1; 
end; 

я обнаружил, что мне нужно, чтобы сделать форму двойной буферизации (DoubleBuffered := True), чтобы избежать мерцания при прокрутке.