FMX.InAppPurchase.IFMXInAppPurchaseService.AddComponent

• Übergeordnet: IFMXInAppPurchaseService

Delphi

procedure AddComponent(const Component: TCustomInAppPurchase);

C++

virtual void __fastcall AddComponent(TCustomInAppPurchase* const Component) = 0 ;

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
procedure function	public	FMX.InAppPurchase.pas FMX.InAppPurchase.hpp	FMX.InAppPurchase	IFMXInAppPurchaseService

Beschreibung

Fügt die angegebene Instanz der Liste der Instanzen und Unterklassen von TCustomInAppPurchase hinzu, die der Plattformdienst führt.

Wenn Sie von TCustomInAppPurchase eine Unterklasse ableiten, aber deren Konstruktor nicht vererben, müssen Sie in Ihrem Konstruktor diese Methode aufrufen:

constructor MyComponent.Create(AOwner: TComponent);
var
  IAPIntf: IInterface;
begin
  if TPlatformServices.Current.SupportsPlatformService(
    IFMXInAppPurchaseService, IAPIntf) then
  begin
    FInAppPurchaseService := IFMXInAppPurchaseService(IAPIntf);
    FInAppPurchaseService.AddComponent(Self);
  end;
end;

Siehe auch

• FMX.InAppPurchase.IFMXInAppPurchaseService.RemoveComponent