은

Question

는 내가 지금 어떻게하려고하는 것은

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

잇는 TMemo 라인의 텍스트를 포함 잇는 TMemo 컴포넌트와 TTimer를 사용하여 scroling 신용 텍스트를 만드는 것입니다

처음 3 개 라인을 보여줍니다 같은 신용, 뭔가 :

감사합니다에 :
Junifer 람다
Exemple 사용자 2
코더 Monalisa
등 등

모든 것이 예상대로 작동합니다. timer.interval을 1ms로 설정했습니다. 텍스트 스크롤이 원활하게 이루어 지지만 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)를 버퍼 양식을 만드는 데 필요한 것을 발견했다.