如何通过代码在delphi中设置Timage包装模式？

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但我得到一个错误，说＃34;语句预期但是找到了表达式＆＃34;。

有人可以帮忙吗？

Answer 1

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

img.WrapMode := TImageWrapMode.iwStretch;

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

这是因为FireMonkey个应用程序默认启用了编译器指令"$SCOPEDENUMS"。