首页 > 其他分享 >Delphi 11.2的一个问题

Delphi 11.2的一个问题

时间:2022-09-23 23:11:42浏览次数:81  
标签:function TFmxObject IsNativeControl Delphi ControlTypeSupportable 问题 11.2 AObjec

https://quality.embarcadero.com/browse/RSP-39499

function TAndroidVirtualKeyboard.DefineNativeView(const AObject: TFmxObject): JView;
 
  function IsNativeControl: Boolean;
  begin
    Result := (AObject is TPresentedControl) and (TPresentedControl(AObject).ControlType = TControlType.Platform);
  end;
//这段代码,需要改写成下面这样:
function TAndroidVirtualKeyboard.DefineNativeView(const AObject: TFmxObject): JView;
 
  function IsNativeControl: Boolean;
  var
    ControlTypeSupportable: IControlTypeSupportable;
  begin
    Result := Supports(AControl, IControlTypeSupportable, ControlTypeSupportable) and
              (ControlTypeSupportable.ControlType = TControlType.Platform);
  end;

 

标签:function,TFmxObject,IsNativeControl,Delphi,ControlTypeSupportable,问题,11.2,AObjec
From: https://www.cnblogs.com/kinglandsoft/p/16724618.html

相关文章