Probleme mit in Tstringgrid eingelagerte Combobox

[R2009]

OK hat sich erledigt.

[toms]

Zitat von R2009:

OK hat sich erledigt.

Wie denn?

[R2009]

Hi,
hab folgendes geändert:

Delphi-Quellcode:

unit u_grid; 
interface 
uses
  SysUtils, Classes, Controls, Grids, stdctrls, Graphics, extctrls; 

Type 
  TUstringgrid=class (Tpanel) 
    constructor Create(AOwner: TComponent); override; 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
    cb:Tcombobox; 
    sg:Tstringgrid;
    procedure add(s:string); 
  end; 

implementation 

constructor TUstringgrid.Create(AOwner: TComponent);
begin 
  inherited; 
  sg:=tstringgrid.Create(self);
  sg.Parent:=self;
  cb:=tcombobox.Create(self);
  cb.Parent:=self;
  Align:=alnone;
  cb.Width:=sg.defaultcolwidth;
  sg.width:=width;
  sg.Height:=height;
  Color:=clAppWorkSpace; 
  sg.Fixedrows:=0;
  sg.Fixedcols:=0;
  cb.BringToFront;
end; 

procedure TUstringgrid.add(s:string); 
begin 
  cb.Items.Add(s); 
end; 

end.

Scheinbar ist es so, dass die beiden Komponenten combobox und stringgrid einen gemeinsamen Parent benötigen.
Vielen Dank für die "tatkräftige und konstruktive" Mithilfe.