TClassから作成されたオブジェクトからインターフェイスを取得するには？

Question

私のフォームクラスのいくつかは同じ機能を実装する必要があります。

（私は私のフォームの最も上の役に立たない機能を追加したくないので、私は、共通のanchestorフォームにこの機能を追加するという考えを捨てました。）

だから... ...私は、インターフェイスの使用について考えました。このような単純なケースでは

IMyInterface = interface 
    procedure ShowHello(); 
end; 

var 
    MyForm : TMyForm; 
    MyInterface : IMyInterface; 
begin 
    MyForm := TMyForm.Create(Self); 
    MyInterface := MyForm; 
    //... 
end; 

、それはエラーなしで動作しますが、私のアプリケーションは、動的なパッケージを使用しますと、私はフォームクラスを得るために、「のGetClass」機能を使用しています。 次のように私が試した：

var 
    MyForm : TForm; 
    MyInterface : IMyInterface; 
begin 
    MyForm := TForm(GetClass('TMyForm').Create()); 
    MyInterface := MyForm; 
end; 

それは、 "互換性のないタイプ： 'IMyInterfaceという' と 'TFormは'" 原因となるエラーを。 インターフェイスを使用して目標を達成する方法はありますか、他の方法を試す方がよいでしょうか？

Answer 1

Supports機能を使用して、インターフェイスが実装されているかどうかを確認します。

サンプル：

var 
    MyForm : TForm; 
    MyInterface : IMyInterface; 
begin 
    MyForm := TFormClass(GetClass('TMyForm')).Create(...); 

    if Supports(MyForm, IMyInterface, MyInterface) then 
    begin 
    MyInterface.ShowHello; 
    end; 
end; 

あなたはあなたのインターフェイスのGUIDを宣言する必要があります。それ以外の場合はSupportsは機能しません。したがって、インターフェイス宣言は次のようになります。

IMyInterface = interface 
    ['{052E7D55-B633-4256-9084-37D797B01BB4}'] 
    procedure ShowHello(); 
end;