Question

我正在尝试编写一个派生自TDummy的复合组件。组件来源是：

  TMyObjectType=(otCube,otSphere);
  TMyGameObject=class(TDummy)
  private
    FObj:TCustomMesh;
    FMyObjectType: TMyObjectType;
    procedure SetMyObjectType(const Value: TMyObjectType);
  public
    constructor Create(AOwner:TComponent);override;
    destructor Destroy;override;
    property MyObjectType:TMyObjectType read FMyObjectType write SetMyObjectType;
  end;

{ TMyGameObject }

constructor TMyGameObject.Create(AOwner: TComponent);
begin
  inherited;
  MyObjectType:=otCube;
end;

destructor TMyGameObject.Destroy;
begin
  FObj.Parent.RemoveObject(FObj);
  FreeAndNil(FObj);
  inherited;
end;

procedure TMyGameObject.SetMyObjectType(const Value: TMyObjectType);
begin
  FMyObjectType := Value;
  if(Assigned(FObj))then begin
    FObj.Parent.RemoveObject(FObj);
    FreeAndNil(FObj);
  end;
  case FMyObjectType of
    otCube: FObj:=TCube.Create(Self);
    otSphere: FObj:=TSphere.Create(Self);
  end;
  FObj.SetSubComponent(True);
  FObj.Parent:=Self;
end;

在我注册组件并在Tbutton的代码中将一个实例放在TViewport3D之后，我尝试将MyObjectType更改为otSphere。

MyGameObject1.MyObjectType:=otSphere;

但似乎没有任何事情发生。所以我写了一段代码作为休闲。

procedure MyParseObj(obj:TFmxObject;var s:string);
var
  i: Integer;
  a:string;
begin
  s:=s+obj.ClassName+'(';
  a:='';
  for i := 0 to obj.ChildrenCount-1 do begin
    s:=s+a;
    MyParseObj(obj.Children.Items[i],s);
    a:=',';
  end;
  s:=s+')'
end;

并在另一个按钮中调用它。

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
  s:='';
  MyParseObj(myGameObject1,s);
  ShowMessage(s);
end;

结果很奇怪。如果我按下button2结果是：TMyGameObject（TCube（），TCube（））

当我按下按钮1然后按下按钮2结果为：TMyGameObject（TCube（），TSphere（））

为什么在我的对象中有两个TCustomMesh作为孩子？（TCube和TSphere源自TCustomMesh）我该如何解决这个问题？

我还有另一项测试。如果我创建的对象不是在设计时间，它可以正常工作。如果我在设计时中放置一个TMyGameObject实例，就会出现问题。

Answer 1

保存表单（从IDE）时，将保存所有控件及其所有子项。如果您的控件创建了自己的子级，则需要设置Stored = False以防止它们被IDE流式传输。

如何防止Firemonkey复合组件中的子组件重复？

1 个答案: