delphi - delphi如何转换ModalResult属性？

Question

希望这是一个快速的过程，并且“如果你知道怎么做就很容易”...

我正在编写某种序列化/脚本类来动态生成表单，前几天我尝试设置 TColor 并收到错误 clBtnFace 不是有效的整数值或类似的值，并发现属性中使用的常量已注册，以便它们可以转换为整数，因此我添加了代码来获取转换器并使用它。

今天我对 ModalResult 属性有类似的问题，但我无法弄清楚 DFM 反序列化器如何处理此属性？有什么想法如何将 mrOK 转换为整数吗？

编辑

没有太多例子可以给出:

PropInfo := GetPropInfo(Instance, PropertyName);
SetPropValue(Instance, PropInfo, PropertyValue);

在本例中，Instance 是 TButton，PropertyName 是“ModalResult”，PropertyValue 是“mrOK”

Answer 1

它不需要:

const
  { Dialog Box Command IDs }
  {$EXTERNALSYM IDOK}
  IDOK = 1;          ID_OK = IDOK;

const
  mrNone     = 0;
  mrOk       = idOk;

type
  TModalResult = Low(Integer)..High(Integer);

TModalResult 在某种程度上是 Integer 的子范围，而 mrOK 只是一个 Integer 常量。