为了开发的便利,需要对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;

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

原文地址:https://www.cnblogs.com/kfarvid/p/1590282.html