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。

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

未声明的标识符：dmautomatic。

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

Answer 1

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

Label1.DragMode := TDragMode.dmAutomatic;

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

1 个答案: