ALT-F12를 두 번 누를 때 중복되는 하위 구성 요소가 생성되지 않도록하려면 어떻게해야합니까?

Question

TRectangle을 포함하는 TLayout으로 구성된 구성 요소를 생성하려고합니다.

TRectangle은 구성 요소의 생성자 내에 생성되며 TLayout을 부모로 사용합니다.

문제 : 양식에이 구성 요소를 올릴 때 양식의 원본 편집기를 입력하기 위해 ALT-F12를 누른 다음 다시 눌러서 부모를위한 추가 하위 구성 요소 (TRectangle)가 만들어집니다. 구성 요소에 대해

코드를합니다 (TRectangle는 심지어 내가 원인을 문제를 생각하는 형태의 텍스트 편집기에 표시되지 않아야) :

unit Problem; 

interface 

uses 
    System.SysUtils, System.Classes, FMX.Types, FMX.Layouts, FMX.Objects; 

type 
    TProblem = class(TLayout) 
    private 
    rect: TRectangle; 
    public 
    constructor Create(AOwner: TComponent); override; 
    end; 

procedure Register; 

implementation 

procedure Register; 
begin 
    RegisterComponents('FMX Problem Component', [TProblem]); 
end; 

{ TProblem } 

constructor TProblem.Create(AOwner: TComponent); 
begin 
    inherited; 
    rect := TRectangle.Create(nil); 
    rect.Parent := Self; 
end; 

end. 

를 내가 대답은 간단하다 확신하지만 감사하겠습니다 그렇지만. 저장

Answer 1

사용은 다음 RECT에 대한 거짓 =

constructor TProblem.Create(AOwner: TComponent); 
begin 
    inherited; 
    rect := TRectangle.Create(nil); 
    rect.Parent := Self; 
    rect.Stored := False 
end; 

SetSubcomponent는 FireMonkey에서 잘못 처리 될 것으로 보인다.