delphi - 如何通过代码在delphi中设置Timage wrapmode？

Question

（使用 firemonkey 和 xe3）。嗨，我创建了一个 img。

  img := Timage.Create(fsbCanvas);
  with img do
    begin
      Parent:=fsbCanvas;
      position.X:=frmMainUI.CurrentMouseX;
      position.y:=frmMainUI.CurrentMouseY;
      Bitmap.LoadFromFile('1.jpg');
      Visible:=true;
    end;

现在我想将它的 wrapmode 设置为 iwStreach。所以我添加了这个： Timagewrapmode.iwStreach但我收到一条错误消息，提示“预期语句但找到表达式”。

有人可以帮忙吗？

Answer 1

您必须以WrapMode这种方式设置图像属性：

img.WrapMode := TImageWrapMode.iwStretch;

请注意，枚举必须使用其类型名称完全限定。

这是因为编译器指令"$SCOPEDENUMS"在FireMonkey应用程序中默认处于启用状态。