Kein Event bei dynamisch erstellter Combobox in Stringgrid

[Frederik]

Ich habe ein Stringgrid, in welchem für eine Zelle in jeder Zeile eine Combobox integriert wurde. Das funktioniert auch wunderbar, nur wird das übergebene Event "OnChange" für die Combobox ignoriert.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var m,k: Integer;
   iTop: Integer;
begin
     with grddaten do begin
          
          rowcount := 10;
          setlength(oComboBoxPublic,rowcount); //die Combobox wurde öffentlich deklariert: oComboBoxPublic: Array Of TCombobox
          iTop := rowheights[0]+1;
          for m := 1 to rowcount -1 do begin

              oComboBoxPublic[m-1] := TCombobox.Create(self);

             with  oComboBoxPublic[m-1] do begin
                  Parent := grddaten; 
     //             Parent := panel1;  //Wird das Parent auf ein TPanel gesetzt, funktioniert es!!
                  Style := csDropDownList;
                  Items.Add('Combobox: ' + inttostr(m) + ' Zeile1');
                  Items.Add('Combobox: ' + inttostr(m) + ' Zeile2');
                  Left := 0;
                  Top := iTop;
                  iTop := iTop + rowheights[m]+1;
                  OnCHange := KomboChange;
                  show;
                  
             end;
        end;
      end;
end;

procedure TForm1.KomboChange(Sender: TObject);
var oKomb: TCombobox;
begin
     oKomb := TCombobox(Sender);
     self.Caption := oKomb.text;
end;

Das Komische ist nur, wenn das Parent für die Combobox auf z. B. ein Panel gesetzt wird, wird auch das Event ordnungsgemäß ausgeführt. Sobald das Parent jedoch wieder auf Stringgrid steht, passiert nichts.

Was mache ich falsch? Oder wird das generell so nicht gemacht. In einigen Foren wird die Sache so gelöst, dass die Combobox erst erscheint, wenn der Focus über der entsprechenden Zelle ist oder hinein geklickt wird. Wie kann man dem Benutzer aber kenntlich machen, dass gerade in dieser bestimmten Zelle eine Auswahlliste zur Verfügung steht?

Vielen Dank für die Hilfe!

[guinnes]

Lass das With mal weg.

[DeddyH]

Am Besten beide

[Frederik]

Vielen Dank schonmal für die schnellen Antworten.

Ich hab die beiden With's weggelassen, leider ohne Erfolg.

Wie bisher:
Parent := Panel1 -> geht
Parent := StringGrid -> geht nicht