Memo with auto scroll text

Hi,

I want to have a Memo or similar component that display many lines of text and with a auto scroll (recursive) vertical like there is in many HTML Pages.
I have Delphi 7.

Thanks!
Andrea MatthiaeSoftware engineeringAsked:
Who is Participating?
 
jimyXConnect With a Mentor Commented:
You can download Jedi components. It's a very rich free components:

JEDI Visual Component Library:
http://jvcl.delphi-jedi.org/

They have a great exe app that shows their different components with details. Once you download their demo (link below) the welcome screen shows exactly what you have asked:
http://sourceforge.net/projects/jvcl/files/JVCL%20Demos/JVCL%203.00%20Mega%20Demo/

The component used is JvScrollText. You can find it under the tab "Jv scrollers" (in the demo window).
0
 
jimyXCommented:
Here you are:
procedure TForm1.Memo1Change(Sender: TObject);
begin
  Memo1.Perform(EM_LineScroll, 0, Memo1.Lines.Count);
end;

Open in new window

0
 
Andrea MatthiaeSoftware engineeringAuthor Commented:
Hi,
thanks for the respose but with this code I go at the end to the text of the Memo without animation.
0
Cloud Class® Course: C++ 11 Fundamentals

This course will introduce you to C++ 11 and teach you about syntax fundamentals.

 
jimyXCommented:
What do you mean by animation? could you explain more please.
0
 
Andrea MatthiaeSoftware engineeringAuthor Commented:
Is like a "HTML Marquee Code" (search on the web) but vertical and in a Memo or similar delphi component.
0
 
Geert GOracle dbaCommented:
if you want a memo to autoscroll

just add a timer component
and move the caret position down a line

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Perform(EM_LINESCROLL, 0, 1);
end;

Open in new window

0
 
Andrea MatthiaeSoftware engineeringAuthor Commented:
Thanks jimyX. I remembered having seen a component that did the autoscroll, but not which one! I had escaped the Jedi components.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.