Código Delphi [-] Procedure TMiForm1.Button1Click(Sender : TObject); Begin try (sender as TInterfacedObject).QueryInterface... except on EInvalidTypeCast do ShowMessage('Objeto no implementa ninguna interfaz!'); end; end;
Procedure TMiForm1.Button1Click(Sender : TObject); Begin try (sender as TInterfacedObject).QueryInterface... except on EInvalidTypeCast do ShowMessage('Objeto no implementa ninguna interfaz!'); end; end;