kein übergeordnetes Fenster für Combobox in CompositeControl

[BAMatze]

Ok hab nun doch die Lösung gefunden. Ist auch hier in der DP schon das ein oder andere Mal gepostet worden, leider war es nicht auf den ersten Blick so, dass ich es direkt gesehen habe oder verwerten konnte.

Habe jetzt nach ein paar Versuchen (und auch ein wenig Fluchen ) es geschaft. Poste hier einfach mal die Code-Teile, damit anderen die Suche vieleicht leichter fällt. Bei Komponenten wie der ComboBox muss erst das Fenster gezeichnet sein, bevor ich die Parent-Methode setzen kann (wenn ich es richtig verstanden habe). Deswegen kann die Perent-Methode nicht im Constructor gesetzt werden, sondern wird in der überschriebenen createWND procedure gesetzt. das ganze sieht dann etwa so aus:

Delphi-Quellcode:

unit CompositeControlUnit;

interface

uses Controls, StdCtrls, Graphics, Classes, ComCtrls, SysUtils, Windows;

Type TContainer = class(TWinControl)
  private
    FCombBoxTischauswahl: TComboBox;
    function CreateComboBox: TComboBox;
  protected
    procedure createWnd; override;
  public
    constructor create(AOwner: TComponent);
...
end;

implementation

constructor TContainer.create(AOwner: TComponent);
begin
  inherited create(AOwner);
  Controlstyle := Controlstyle - [csAcceptsControls]; // Der Componente wird nicht erlaubt
                                                      // andere Componenten aufzunehmen,
                                                      // als die, die durch den Programmierer
                                                      // hier einprogrammiert werden.
  Visible := true;
  width := 300;
  height := 200;

  FCombBoxTischauswahl := CreateComboBox;
end;

function TContainer.CreateComboBox: TComboBox;
begin
  result := TComboBox.Create(Self);
  result.Left := 10;
  result.Top := 30;
  result.Height := 20;
  result.Width := 200;
end;

procedure TContainer.CreateWnd;
begin
  inherited createWnd;
  //Parent zuweisen
  FCombBoxTischauswahl.Parent := self;
  //ComboBox löschen
  FCombBoxTischauswahl.Clear;
  //Combobox mit Items füllen
  FCombBoxTischauswahl.Items.Add('Verschiebetisch Referenzfaser');
  FCombBoxTischauswahl.Items.Add('Verschiebetisch Kamera/ Spleißgerät');
  FCombBoxTischauswahl.Items.Add('Piezoverschiebetisch');
  FCombBoxTischauswahl.ItemIndex := 0;
end;
end.

Ok ich hoffe ich kann damit ein paar anderen Anfängern ein wenig helfen