How to Show Caret in TListBox on macOS and Linux

[msintle]

This code works on Windows:

Code: Pascal  [Select][+][-]

1.   CreateCaret(ListBox1.Handle, 0, 2, 10);
2.   ShowCaret(ListBox1.Handle);

But does nothing on macOS and/or Linux.

Any ideas on how to get a blinking cursor showing on these platforms?

(demo project attached)