Delphi 如何更改标签（firemonkey）的dragmode属性

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

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

程序不会编译，编译器只会声明：

未声明的标识符：dmautomatic

---

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

FireMonkey是用enabled编译的。因此，您必须在dmAutomatic前面加上其枚举类型名称TDragMode，例如：

---

FireMonkey是在启用的情况下编译的。因此，您必须在dmAutomatic前面加上其枚举类型名称TDragMode，例如：

Label1.DragMode := TDragMode.dmAutomatic;