TShape.SetTempCursor, how does this work?

[jamie]

Consider this.

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

1.  
2. procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
3.   Y: Integer);
4. begin
5.   Shape1.SetTempCursor(crHandPoint);
6. end;                      
7.  

When I do this, the cursor does not change!

A little input would be helpful.

Jamie

[Fibonacci]

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

1. class procedure TWSWinControl.SetCursor(const AWinControl: TWinControl; const ACursor: HCursor);
2. begin
3. end;

Its empty

[jamie]

No, it does go to code, use a break point and you will see it steps to it.

In any case, I think maybe what is happening is the MouseMove event is setting the cursor back to what the cursor property is set for on exit of the event.

 Maybe it should be doing this upon entry of the event so that a cursor change can be made and held.

[zeljko]

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

1. class procedure TWSWinControl.SetCursor(const AWinControl: TWinControl; const ACursor: HCursor);
2. begin
3. end;

Its empty

Yes, it is overrided/implemented in widgetsets.

[jamie]

The point was this :

 

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

1. procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
2.   Y: Integer);
3. begin
4.    {Make sure Shape is something other than a Square}
5.   With TShape(Sender) do
6.    Begin
7.      If PtInShape(Point(X,Y)) then
8.         Cursor := crHandPoint else {SetTempCursor does nothing so must change main cursor}
9.         Cursor := Parent.Cursor; {Would be nice if I didn't need to do this way}
10.    end;
11.  
12. end;                        
13.  

as you can see, you can't set the Cursor from the LFM because it needs to be changed at runtime.

Maybe we need a InShapeCursor property ?