Page 1 of 1
Forum

Welcome to the Tweaking4All community forums!
When participating, please keep the Forum Rules in mind!

Topics for particular software or systems: Start your topic link with the name of the application or system.
For example “MacOS X – Your question“, or “MS Word – Your Tip or Trick“.

Please note that switching to another language when reading a post will not bring you to the same post, in Dutch, as there is no translation for that post!



Share:
Notifications
Clear all

[Solved] Lazarus Pascal - TMemo scroll to last line ...

1 Posts
1 Users
0 Reactions
871 Views
 Hans
(@hans)
Famed Member Admin
Joined: 11 years ago
Posts: 2805
Topic starter  

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);

   
ReplyQuote
Share: