is,as操作符判断接口

Question

function TXXForm.CreateOne(rect: TRect; parent: TControl): TControl;
begin
  // 按钮
  Result := TXXButton.Create(self);
  if (Result is IXXCallback) then   // E2015 Operator not applicable to this operand type
  begin
    (Result as IXXCallback).AfterNew; // E2015 Operator not applicable to this operand type
  end;
end;说明:
TXXButton实现了IXXCallback接口, 也继承了TButton现在遇到上面的问题,该如何处理啊?
谢谢..

Answer 1

var cb: IXXCallback;if Supports(Result, IXXCallback, cb) then cb.AfterNew;