FMX.InAppPurchase.IFMXInAppPurchaseService.AddComponent
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;