Local and global mouse cursor settimgs

[simsee]

I'm developing an application that requires different mouse cursors depending on the controls it's on. Therefore I did some preliminary experiments and found unexpected behaviors.

To decide which cursor appears over a control, I can set its Cursor property. This setting has a local effect. I can globally set the cursor for all visible controls using Screen.Cursor.

What I noticed is that if I set before Screen.Cursor, after the local settings have no effect. This is shown by the demo program that I attach, in which, with one button you set the global cursor, using Screen.Cursor, with the other the local one of a Panel, with TPanel.Cursor.

Is this behavior correct and expected? Is it possible to set the local cursor on a control after setting the global one? Or do I have to set the cursors of the various controls individually, without touch Screen.Cursor?

Thanks.

[jamie]

Yup,. That seems to be how I remember it.

[Martin_fr]

Yes, afaik correct.

But once you do

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

1. Screen.Cursor:=crDefault;

the local setting will be in effect.

Screen.Cursor overrides all local cursors. You can't have a single control exempt from it.

You can have onMouseEnter/Leave for that control, and change the screen cursor and restore it....

[ASerge]

You can have onMouseEnter/Leave for that control, and change the screen cursor and restore it....

Using existing methods:

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

1. procedure TForm1.Panel1MouseEnter(Sender: TObject);
2. begin
3.   Screen.BeginTempCursor((Sender as TControl).Cursor);
4. end;
5.  
6. procedure TForm1.Panel1MouseLeave(Sender: TObject);
7. begin
8.   Screen.EndTempCursor((Sender as TControl).Cursor);
9. end;