Autoscrolling memo up & down

[adriantc]

Hello,

I have a memo object displaying a sort of credits and I need it to scroll up and once it gets down to scroll up again and so on. I know that I can scroll up and down with ScrollBy (using a timer event), but how can I tell it has reached the end or the beginning?

Thank you,
Adrian

[emailx45]

Try verify the LINE or COLUMN current


var line,Column:integer;
begin
With Memo1 do
begin
Line:= Perform(EM_LINEFROMCHAR,SelStart, 0);
Column:= SelStart - Perform(EM_LINEINDEX, Line, 0);
end;
Label1.Caption:=IntToStr(line)+\' - \'+IntToStr(Column)