VCL unit in FMX DataModule

[Sir Rufo]

So sieht ein DataModule aus, wenn es frisch mit FMX erzeugt wurde

Delphi-Quellcode:

unit Unit2;

interface

uses
  System.SysUtils, System.Classes;

type
  TDataModule2 = class(TDataModule)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DataModule2: TDataModule2;

implementation

{%CLASSGROUP 'FMX.Controls.TControl'} // <- Das ist entscheidend

{$R *.dfm}

end.

Und genau dieses {%CLASSGROUP 'FMX.Controls.TControl'} entscheidet nun darüber, was hier benötigt wird, bzw. woran FireDAC erkennt, welches Framework verwendet wird.

• VCL {%CLASSGROUP 'Vcl.Controls.TControl'}
• FMX {%CLASSGROUP 'FMX.Controls.TControl'}
• Persistent {%CLASSGROUP 'System.Classes.TPersistent'}

WICHTIG!

Delphi-Quellcode:

implementation

{%CLASSGROUP 'FMX.Controls.TControl'} // muss direkt unter implementation stehen

Falsch ist z.B.

Delphi-Quellcode:

implementation

uses
  UnitFoo;

{%CLASSGROUP 'FMX.Controls.TControl'} // muss direkt unter implementation stehen

Falsch ist auch

Delphi-Quellcode:

implementation

{ %CLASSGROUP 'FMX.Controls.TControl'} // nicht daran herumfummeln!

Und der TFDGUIxWaitCursor entscheidet zusätzlich über den Eintrag TFDGUIxWaitCursor.Provider welches Unit eingebunden wird.