Screen.Cursor from a TGroupBox fails
Original Reporter info from Mantis: Alexsander
-
Reporter name:
Original Reporter info from Mantis: Alexsander
- Reporter name:
Description:
- Create a new project (on Linux Ubuntu 9.04)
- Place a TGroupBox
- Place a TButton inside the TGroupBox
- Copy the following code into TButton.Click
Screen.Cursor := crSQLWait;
Application.ProcessMessages;
Sleep(1000);
Screen.Cursor := crHourGlass;
Application.ProcessMessages;
Sleep(1000);
Screen.Cursor := crDefault;
Application.ProcessMessages;
- Run the project, click the button. The cursor will change from crSQLWait to crHourGlass, then to crDefault. Now move the cursor around the form: while inside the GroupBox (but outside the Button) the cursor will be crHourGlass; in all other areas of the form it will be the crDefault.
Example included.
Mantis conversion info:
- Mantis ID: 15351
- Version: 0.9.29 (SVN)
- Fixed in version: 0.9.29 (SVN)
- Fixed in revision: 23153 (#c6e04024)
- Monitored by: » Alexsander (Alexsander)