change the mouse cursor

Posted on 2012-09-20
Last Modified: 2012-09-22
How do I change the "select cursor" and "link cursor"?

  SetSystemCursor (Cursor1, OCR_NORMAL);

I have no idea how to do already tried changing the ocr_normal and'm not doing it!

sorry, my english is bad ^ _ ^!
Question by:skiuia
    1 Comment
    LVL 25

    Accepted Solution

    ... to show select (edit): Screen.Cursor := crIBeam;
    ... to link/hand point: Screen.Cursor := crHandPoint;
    ... to wait state: Screen.Cursor := crHourglass;
    ... to return to default: Screen.Cursor := crDefault;

    All cursor constants are declared in Controls.pas

    If you want some animated...

    Featured Post

    How to improve team productivity

    Quip adds documents, spreadsheets, and tasklists to your Slack experience
    - Elevate ideas to Quip docs
    - Share Quip docs in Slack
    - Get notified of changes to your docs
    - Available on iOS/Android/Desktop/Web
    - Online/Offline

    Join & Write a Comment

    A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
    Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
    This video is in connection to the article "The case of a missing mobile phone (". It will help one to understand clearly the steps to track a lost android phone.
    This video discusses moving either the default database or any database to a new volume.

    728 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    18 Experts available now in Live!

    Get 1:1 Help Now