Hallo Zusammen,

Ich hab eine Haupt-Komponente, die Im Designer SubKomponenten anlegt.
Möchte das ganze ähnlich machen wie bei TDataset und den Fields.
Also neues Feld TEST wird erzeugt = im QuellText entsteht TabelleTest:Tintegerfield.

Das Ganze geht bei mir auch, nur sind die erzeugten, nennen wir es mal "Felder", auf dem Formular als NonVisual-Komponenten sichtbar. Das möchte ich verhindern.

Was ich bei TComponent setzten oder überschreiben muss, hab ich bisher nicht rausgefunden.

Weil du den Owner falsch setzt?

Deine Komponente ist der Besitzer der SubKomponenten,
aber wenn du stattdessen die Form als Besitzer angibst, dann fühlt sie sich natülich auch dafür verantwortlich und zeigt die an.
[Edit] Hmmmm, wie das bei den TFields läuft ... gute Frage.
Ich kenn es nur andersrum, also SetSubComponent, wo man die Form nicht als Owner angibt, aber sie soll die SubKomponente dennoch speichern.

Sind deine Subkomponenten von TComponent abgeleitet?

Jup ist von TComponent,
bei SetSubComponent(true), erzeugt er nix mehr im Quelltext und formular.

habs mal als mini Test zusammengepackt, beim klicken auf "..." beim property DummyAdd legt er die an.
Ich weiss das da grade der Bezug von der neuen Komponente zum Master fehlt, zum testen für euch hab ich alles weg gelassen

zusammenfalten · markieren

Delphi-Quellcode:

Type
  TTestComp=class(TComponent)
  private
    FWert: string;
    published
      property Wert:string read FWert write FWert;
  end;


  TTestCompMaster=class(TComponent)
  private
    FDummyAdd: string;
    published
      property DummyAdd:string read FDummyAdd write FDummyAdd;
  end;

//......
//aus register...

procedure Register;
begin
  RegisterComponents('DPTest', [TTestComp]);
  RegisterComponents('DPTest', [TTestCompMaster]);
  RegisterPropertyEditor(TypeInfo(string),TTestCompMaster,'DummyAdd',TTcTest_PropertyEditor);
end;

procedure TTcTest_PropertyEditor.Edit;
var tc:TComponent;
begin
 // Showmessage('EDIT');

  if GetComponent(0) is TComponent then
    tc:=TTestCompMaster(GetComponent(0));

  if not Assigned(tc) then exit;

  if tc.Owner is TForm then
    with TTestComp.Create(tc.Owner) do
    begin
      //SetSubComponent(true);
      Name:=GetUniqueName(Owner,ClassName);
    end;


 // Showmessage('EDIT ENDE');
end;