Firemonkey의 스크롤 텍스트 효과

사용자에게 메시지를 표시해야하는 순간이 있으며 메시지 길이가 사용 가능한 공간보다 큽니다.Firemonkey의 스크롤 텍스트 효과

사용할 컨트롤이 무엇이든 상관 없습니다. 텍스트가 완전히 보이지 않을 때와 스크롤 효과를 적용하는 방법을 알고 싶습니다. (더 정확하게는 텍스트가 왼쪽 숨겨진 텍스트가 보여지고 영원히 다시 반복됩니다.

내가 사용 델파이 XE7 델파이 XE7.1

2015-01-20 Eduardo Elias

아마도이 링크의 도움 [Firemonkey 움직이는 ScrollLabe] (HTTP : // WWW. delphipraxis.net/1252297-post6.html). –

@LURD는 매우 중얼 거 렸습니다. 그 작품이 내가 필요한 전부라면, 아니면 거의 .... 그걸 시도해 보겠습니다. 누군가가 더 나은 것을 제공하지 않는 한, 당신이 대답으로 게시한다는 사실을 알려 드리겠습니다 ... 감사합니다. –

@LURD와 Eduardo 그러나 페이지 하단의 텍스트는 Windows에서만 올바르게 작동합니다. Android 및 iOS에서는 국경을 넘어 흐릅니다. –

스크롤 윤곽을 사용하고 표준 RTL 컨트롤 :

procedure TForm1.Button1Click(Sender: TObject); 
begin 
FloatAnimation1.Enabled := True; 
FloatAnimation1.StartValue := Form1.Width; 
FloatAnimation1.StopValue := 0-Label1.Width; 
end; 


object Label1: TLabel 
AutoSize = True 
Position.X = 240.000000000000000000 
Position.Y = 232.000000000000000000 
Size.Width = 37.000000000000000000 
Size.Height = 16.000000000000000000 
Size.PlatformDefault = False 
TextSettings.WordWrap = False 
Text = 'Label1' 
object FloatAnimation1: TFloatAnimation 
    Duration = 1.000000000000000000 
    Loop = True 
    PropertyName = 'Position.X' 
    StartValue = 0.000000000000000000 
    StartFromCurrent = True 
    StopValue = 0.000000000000000000 
end 
end 
object Button1: TButton 
Position.X = 248.000000000000000000 
Position.Y = 312.000000000000000000 
TabOrder = 1 
Text = 'Button1' 
OnClick = Button1Click 
end

출처

2015-03-03 18:45:04 FMXExpress

Firemonkey의 스크롤 텍스트 효과

답변

관련 문제