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!