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

[NickelM]

Naja ich weis, das dieser Post etwa 2 Jahre alt ist, da ich gerade aber selber soetwas brauche, habe ich mal rumprobiert und eine Lösung gefunden. Falls es noch jemand interessiert:
Das Problem ist, das StringGrid einen eigene Msg-Schleife besitzt, und wenn man dan den ComboBox Parent setzt, sendet Windows die Events (OnCloseUp,OnChange sind Windows-Events) nicht an das Form sondern an das StringGrid, und dieses weis nichts damit anzufangen...
So kann man dies übergehen und dem StringGrid sozusagen, die Events "zuweisen":

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  //...
  public
    procedure NewStringGridProc(var Message: TMessage);
  end;
var OldStringGridProc : TWndMethod; //Alte WndProc speichern

procedure TForm1.NewStringGridProc(var Message: TMessage);
begin
  case Message.WParamHi of
    CBN_CLOSEUP: then //OnCloseUP
    begin
      if Message.LParam = ComboBox.Handle then //Falls ihr mehrer drin habt, müsst ihr so auf ein bestimmtes prüfen.
      begin
        //Euer Code, ganz normal hier eingeben, als würdet ihr dies bei OnCloseUp eingeben.
        StringGrid1.SetFocus; //Falls ihr in den Optionen die Tabs aktiviert habt, so könnt ihr dadurch zur nächsten Zeile normal springen
      end;
    end;
    CBN_SELCHANGE: //OnChange
//Bei mir sind Fehler beim ObDrawCell in verbindung mit SelChange aufgetretten. Vielleicht ist dies nur bei mir, jedenfalls verwende ich CloseUp, um die Auswahl zuübernehmen
    begin

    end;
  else OldStringGridProc(Message);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldStringGridProc := StringGrid1.WindowProc;
  StringGrid1.WindowProc := NewStringGridProc;
end;