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!