Firemonkey ignoriert SetSubComponent()

[sks4u]

Hallo,

ich versuche gerade mit Delphi XE6 in einem Firmonkey-Projekt eine von TPanel abgeleitete Komponente zu erstellen.
Also vereinfacht etwa so etwas:

Delphi-Quellcode:

unit TFlipPanelsIntern;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls;

type
  TFlipPanelIntern = class(TPanel)
    constructor Create(AOwner: TComponent); override;
  private
    Button1: TButton;
  public 
  published
end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('sks', [TFlipPanelIntern]);
end;


constructor TFlipPanelIntern.create(AOwner: Tcomponent);
begin
  inherited create(AOwner);

  Button1 := TButton.Create(self);
  Button1.SetSubComponent(true);
  Button1.Parent := self;
  Button1.Name := 'Button1';
  Button1.Align := TAlignLayout.Right;
  Button1.Width := 20;
end;

end.

Das funktioniert soweit auch bis ich die Komponente in ein Formular einfüge.
Die Subkomponente "Button1" wird mit in die .FMX gescchrieben

Delphi-Quellcode:

object FlipPanelIntern1: TFlipPanelIntern
  Height = 120.000000000000000000
  Position.X = 136.000000000000000000
  Position.Y = 96.000000000000000000
  Width = 120.000000000000000000
  TabOrder = 5
  object Button1: TButton
    Align = Right
    Height = 120.000000000000000000
    Position.X = 100.000000000000000000
    TabOrder = 0
    Text = 'Button1'
    Width = 20.000000000000000000
  end
end

Wenn ich das Formular nun erneut öffne, dann habe ich den Button 2x drin.
Ich nehme mal an, dass beim Parsen der .FMX meine Komponente angelegt wird und zwar inclusive des Buttons aus dem Konstructor und dann der Button aus der *.FMX

Wenn ich das Formular dan wieder schliesse (und speichere) steht der Button 2x in der .FMX und beim Öffnen zeigt der FormularEditor den Button 3x ... und so weiter....


Eigentlich dachte ich SetSubComponent(true) soll genau das - das Schreiben in die RessourcenDatei verhindern.


Folgende Tips habe ich bereits via Google gefunden und vergeblich ausprobiert.
- die TButton-Komponente aus privat, public, published deklariern
- den Constructor von TButton mit AOwner self, Owne und nil aufrufen


Grüße,

Sascha

[stahli]

Hallo Sascha,

herzlich willkommen.

Den Quelltext kannst Du in Delphi-Tags setzen (Delphi-Helm im Editor).

Versuch mal Button1.Stored := False; ob das hilft.
Aber selbst wenn, bei FMX steht man wohl immer wieder vor Rätseln.

[himitsu]

Zitat von sks4u:

Eigentlich dachte ich SetSubComponent(true) soll genau das - das Schreiben in die RessourcenDatei verhindern.

War das nicht genau andersrum?
Mit SetSubComponent(True) sagt man, daß die Komponente gespeichert werden soll.

[stahli]

Ja, das stimmt.

Bei FMX hat aber auch noch Stored einen Einfluss.
Ich hatte das durch Quelltextstudium und Versuche heraus bekommen.

100%ig kann ich den Zusammenhang jetzt nicht mehr zusammenfassen.
Ich war damals froh, dass es "irgendwie zu funktionieren schien".

[sks4u]

Herzlichen Dank in die Runde.

Button1.Stored := false; ist das was ich gesucht habe.

Dann werde ich mal loslegen und vielleicht komme ich auch noch drauf, welchen Einfluß
Button1.SetSubComponent(true|false);
hat. Im Moment entdecke ich noch keinen.


Danke,
Sascha

[sks4u]

Naja, leider ist Stored := false; auch nicht unbedingt eine Lösung.

Wenn die Subkomponente selbst auch ein TPanel ist - und darauf sollte es hinauslaufen,
dann wird eben auch nichts gespeichert, was man da zur Entwurfszeit raufpackt.

Damit bin ich wieder am Anfang.

Es muß doch möglich sein, die Subkomponenten auf meine Komponente zu bekommen,
ohne sie im Konstruktor meiner Komponente zu instanzieren,
oder zu verhindern, das sie in der Folgeverarbeitung der .FMX nochmal erzeugt werden.