为了开发的便利,需要对DelphiX底层代码进行修改的历史(绘画列表中最大的Z值)

1:现在需要获取FDrawList当中最后一个对象的Z值。因为需要对对象的Z值进行控制,需要获取该值。(实现窗体显示在最前面)

 

// 1 :添加私有方法:
function  GetMaxDrawListZ:Integer;
// 2 :添加公开属性:
property  MaxDrawListZ:Integer  read  GetMaxDrawListZ;
// 3 :添加私有方法的代码:
function  TSprite.GetMaxDrawListZ:Integer;
begin
  Result:
=- 1 ;
  
if  Assigned(FDrawList)  then
    Result:
= TSprite(FDrawList[FDrawList.Count  -   1 ]).Z;
end ;

 

实际编码中发现,鼠标永远是在最顶上的,因此,该方法不再有用。

你可能感兴趣的:(Delphi)