How to set cursor style to "BRIEF cursor shape" in a TMemo Component

In Delphi's IDE , open the menu "Tool - Editor Options..." , click the "Display" Tab page , and there is checkbox named "BRIEF cursor shapes" , if you checked it , and click ok to back to IDE . Now , you will find your cursor in Code Editor Memo has change to "BRIEF cursor shapes" . So I want to know how to reach it .
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

This may be a feature of the IDE only.
The question to answer is:
Is it possible to translate cursor position in character position for a TMemo?
If so then the Brief cursor shapes are possible. It would need a WM_MOUSEMOVE handler.
vitamingooAuthor Commented:
Thank robert marquard.

Why need a WM_MOUSEMOVE handler , I mean I want to change the KEYBOARD INPUT CURSOR 's shape , not MOUSE CURSOR's shape.

And you said :"This may be a feature of the IDE only." , even so , I think it could be done in my own program.
Sorry, but that element is named caret not cursor. That should be possible.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
vitamingooAuthor Commented:
The problem has been solved.

Thank you.
Ask EE support to delete this question and refund the points.
Alternatively post the solution here and ask to PAQ the question to allow others to find the answer.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.

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.