FMX.InAppPurchase.IFMXInAppPurchaseService.AddComponent

• Aller au parent : IFMXInAppPurchaseService

Delphi

procedure AddComponent(const Component: TCustomInAppPurchase);

C++

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

Propriétés

Type	Visibilité	Source	Unité	Parent
procedure function	public	FMX.InAppPurchase.pas FMX.InAppPurchase.hpp	FMX.InAppPurchase	IFMXInAppPurchaseService

Description

Ajoute l'instance spécifiée à la liste d'instances de TCustomInAppPurchase et aux sous-classes que le service de plate-forme détient.

Si vous sous-classez TCustomInAppPurchase mais n'héritez pas de son constructeur, n'oubliez pas d'appeler cette méthode dans votre constructeur :

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;

Voir aussi

• FMX.InAppPurchase.IFMXInAppPurchaseService.RemoveComponent