Delphi - ビジュアルフォーム継承 - コンポーネントベースクラス検出

Question

私はVFI（ビジュアルフォーム継承）を使用しており、インスタンス化されたフォームのコンポーネントがフォームクラスまたはフォームスーパークラスに属しているかどうかを確認する必要があります。

私はlblCodigoがTFormCodigoとcpPanel/lblStatusに対してローカルであることを検出したいfrmCodigoのいずれの場合において

unit1 

    TFormStatus = class(TForm) 
    cpPanel: TPanel; 
    lblStatus: TLabel; 
    end; 

    unit 2 

    TFormCodigo = class(TFormStatus) 
    lblCodigo: TLabel; 
    end; 

    frmCodigo: TFormCodigo: 

コンポーネントを継承しています。

for i:=0 to Self.ComponentCount-1 do begin   
     if "InheritedComponent" (Self.Components[i]) then ... 
    end; 

RTTIをオブジェクトプロパティに使用すると、このようなことは可能ですが、コンポーネントが可能であるかどうかはわかりません。

ありがとうございました。

Answer 1

私が正しく理解している場合は、TRttiMember.Parentが必要です。たとえば、Rob Loveのarticleを参照してください。 Delphi 2010以降が必要です。

実際これはexcellent series of articlesの一部です。これらの記事では、名前を知らなくてもフィールドやプロパティなどを取得する方法についても説明します。

Answer 2

たぶん

function TFormStatus.IsStatusComponent(AComponent: TComponent): Boolean; 
begin 
    Result := (AComponent = cpPanel) or (AComponent = lblStatus); 
end; 

のような "愚かな" 何かが、すでにあなたのニーズを満たし？

Answer 3

TFormCordigoでは、特定のフォームのリソースを読み込むたびに呼び出されるReadStateメソッドをオーバーライドできます。継承された後、ComponentCountには現在の階層のメンバまで作成されたコンポーネントの数が含まれているので、後で別の場所に保存できるコンポーネントの罫線のリストがあります。

次のコードは、このアプローチに

procedure TInhTestForm.Button3Click(Sender: TObject); 
var 
    i: integer; 
begin 
    inherited; 

    Memo1.Lines.Clear; 
    for i:=0 to ComponentCount-1 do 
    begin 
    Memo1.Lines.Add(format('%s inroduced in %s', [Components[i].Name, ComponentParent(i).ClassName])); 
    end; 
end; 

function TInhTestForm.ComponentParent(Index: integer): TClass; 
var 
    i, j: integer; 
begin 
    Result:=Nil; 
    for i:=Low(fComponentBorders) to High(fComponentBorders) do 
    begin 
    if Index <= fComponentBorders[i] - 1 then 
    begin 
     j:=i; 
     Result:=Self.ClassType; 
     while j < High(fComponentBorders) do 
     begin 
     Result:=Result.ClassParent; 
     Inc(j); 
     end; 
     break; 
    end; 
    end; 
end; 

procedure TInhTestForm.ReadState(Reader: TReader); 
begin 
    inherited; 
    SetLength(fComponentBorders, Length(fComponentBorders) + 1); 
    fComponentBorders[High(fComponentBorders)]:=ComponentCount; 
end;