Du könntest vielleicht zwei solche Units wie die beiden Hybrid-Units aus meinem Beispiel nehmen und dort jeweils eine Konstante FrameWorkVCL bzw. FrameWorkFMX deklarieren. Dann kannst du beim Compilieren über {$IF Declared(FrameWorkXXX)} abfragen, was gerade eingebunden wurde.
Delphi-Quellcode:
unit VCL.Hybrids;
interface
const
FrameWorkVCL = 1;
implementation
end.
Delphi-Quellcode:
unit FMX.Hybrids;
interface
const
FrameWorkFMX = 2;
implementation
end.
Delphi-Quellcode:
uses
Hybrids,
{$IF Declared(FrameWorkVCL)}
Vcl.ExtCtrls;
{$ELSE}
{$IF Declared(FrameWorkFMX)}
FMX.Types;
{$IFEND}
{$IFEND}
{$IF Declared(FrameWorkVCL)}
const
FrameWork = FrameWorkVCL;
{$ELSE}
{$IF Declared(FrameWorkFMX)}
const
FrameWork = FrameWorkFMX;
{$IFEND}
{$IFEND}
type
TMyTimer =
class(TTimer)
end;