ich möchte eine Erweiterung der CheckListBox als Komponente sowohl für das VCL als auch für das FMX Framework anbieten

zusammenfalten · markieren

Delphi-Quellcode:

  TCheckListBoxErweiterung = class(
    {$IFDEF FrameWork_VCL}
    TCheckListBox
    {$ENDIF}
    {$IFDEF FrameWork_FMX}
    TListBox
    {$ENDIF} )

    private
    ...

    end;

ist so was machbar? Wird diese Komponente dann in die Komenetenliste für beide GUI Frameworks aufgenommen?
Akuell habe ich diverse Compiler Fehler dich ich nicht beheben kann, die Ursprüngliche Version mit nur VCL Unterstützung hat problemlos funktioniert.

Das geht, aber du musst das etwas anders machen, wenn du die Komponente für beide Frameworks registrieren möchtest:

zusammenfalten · markieren

Delphi-Quellcode:

{$define UseInterface}

TCheckListBoxExtendedVCL = class(TCheckListBox)
{$define UseVCL}
{$i 'CheckListBox.pas'}
end;

TCheckListBoxExtendedFMX = class(TListBox)
{$define UseFMX}
{$i 'CheckListBox.pas'}
end;

implementation

{$undef UseInterface}
{$define UseImplementation}
{$define UseVCL}
{$i 'CheckListBox.pas'}
{$define UseFMX}
{$i 'CheckListBox.pas'}

Auf diese Weise wird der Quelltext doppelt eingebunden, sowohl unter interface als auch unter implementation. Mit UseVCL und UseFMX bzw. UseInterface und UseImplementation musst du in der eingebundenen Unit dann unterscheiden...

Ob sich eine solche Vorgehensweise hier lohnt und sinnvoll ist, kann ich nicht beurteilen. Ich persönlich habe für FMX und VCL lieber getrennte Units, die nur die Logik soweit wie möglich in gemeinsamen Units teilen.

sieht nach dem falschen Ansatz aus ... ich glaube ich verabschiede mich von der Idee und mache auch VCL und FMX getrennt

TMS hat das mit seinem FNC Komponenten bereits seit einigen Jahren umgesetzt. Schau dir mal an, wie der das gemacht hat ...

+1 Für separate Units U.Vcl U.Fmx

Es geht ja bei FMX womöglich noch weiter in U.FMX.And, U.FMX.iOS, ...
Deshalb besser gleich alles sauber in UnterUnits separieren.

Vielleicht ist dieser Switch auch interessant für dein Vorhaben.