Lazarus Pascal - TMemo scroll to last line ...

Hans — Wed, 08 May 2024 12:48:28 +0000

I wanted my TMemo to always scroll to the last line (log), and found two useful trick to move the cursor/caret to the line.

Easiest (I even placed this one in the memo.OnChange event):

Memo1.selstart := MaxInt;

TMemo will see that MaxInt is way too much and will select the last available position instead.

Of course you can also use the proper function for this, to position at the beginning (0) of the last available line (Memo1.Lines.Count-1):

Memo1.CaretPos := Point(0, Memo1.Lines.Count-1);

Lazarus Pascal - TMemo scroll to last line ... - Delphi, Lazarus, Free Pascal