Hi Bernard, I have written a demo program for scrolling text with Label. I just used a Timer to change the position of the Label. Here is the OnTimer event handler:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ScrollToLeft then
begin
lblScrollingText.Left:= lblScrollingText.Left - StepSize;
if ((lblScrollingText.Left + lblScrollingText.Width) < 0) then
lblScrollingText.Left:= Form1.Width;
end
else
begin
lblScrollingText.Left:= lblScrollingText.Left + StepSize;
if (lblScrollingText.Left > Form1.Width) then lblScrollingText.Left:= 0
- lblScrollingText.Width;
end;
end;
My demo lets you change the text, the font, the direction, the step size
and the delay. Let me know if you want me to send it to you.
Hope this helps
Raymond
"bernard kioko
[bernsoft]"
<[EMAIL PROTECTED]
com>
Sent by:
[EMAIL PROTECTED]
oups.com
07/07/2005 08:38
AM
Here's one that's a challenge.
I am trying to create a scrolling text application that I can feed with
text
(like adding into a memo) and it SCROLLS them across the screen.like seen
on
CNN. Any idea of how I can achieve this with smooth scrolling?
Bernard
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
