poo*_*nam 6 delphi handle negative-number
我正在研究delphi XE5中的一个项目.使用相同的功能在运行时创建不同的弹出菜单.每次使用Tcomponent类中的"Handle"弹出名称.
popupname := 'XYZ' + IntToStr(handle);
在某些系统上,我将"Handle"值设为负值,当我尝试将" - "符号命名为组件时,我收到错误消息"XYZ-5645不是有效的组件名称"
你能建议我出路吗？
Dav*_*nan 10
而不是IntToStr,它接受有符号整数,您可以将句柄视为指针,因此将数值表示为十六进制:
popupname := Format('XYZ%p', [Pointer(Handle)]);
这是有道理的,因为Windows中的句柄是头文件中定义的无类型指针void*.
作为额外的好处,您的代码现在在32位和64位平台上都是正确的.
在框外思考,也许该组件根本不需要名称.如果是这样,请删除此代码,将其保留为无人值守,从而解决您的问题.