To facilitate development, you need to modify the history of delphix underlying code (the maximum Z value in the painting list)

1: now we need to get the Z value of the last object in fdrawlist. This value must be obtained because the Z value of the object needs to be controlled. (Display the form at the beginning)

 

// 1 : Add a private method:
Function Getmaxdrawlistz: integer;
// 2 : Add public attributes:
Property Maxdrawlistz: integer Read Getmaxdrawlistz;
// 3 : Add a private MethodCode:
Function Tsprite. getmaxdrawlistz: integer;
Begin
Result: =- 1 ;
If Assigned (fdrawlist) Then
Result: = Tsprite (fdrawlist [fdrawlist. Count -   1 ]). Z;
End ;

 

The actual code shows that the mouse is always at the top, so this method is no longer useful.