如何更改标签的拖动模式 属性 (firemonkey)

Question

这对你们来说一定很简单，但我不知道问题出在哪里。这是代码：

unit Unit7;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, 
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, 
  FMX.StdCtrls,
  FMX.Controls.Presentation;

type
  TForm7 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.fmx}

procedure TForm7.Button1Click(Sender: TObject);
begin
label1.dragmode:=dmautomatic;
end;

end.

我所做的只是创建了一个表单，在上面放了一个标签和一个按钮，然后尝试将标签的 DragMode 属性 更改为 dmAutomatic按钮被点击。

程序无法编译，编译器简单地指出：

undeclared identifier: dmautomatic.

我错过了一些非常明显的东西，但我看不到它是什么。

Answer 1

FireMonkey 是在启用 Scoped Enums 的情况下编译的。所以，你必须在 dmAutomatic 前面加上它的枚举类型名称 TDragMode，例如：

Label1.DragMode := TDragMode.dmAutomatic;