Hallo,
wenn ich bei einer TComboBox einen ItemIndex zuweise, wird kein OnChange Ereignis ausgelöst!
Wie kann ich per Code eine Auswahl treffen, wobei genau das gleiche abläuft, wie wenn ich es per Maus mache?
Delphi-Quellcode:
unit 1
...
// suche combobox und finde wert in combopbox
cbs:=TStrings.Create;
with TComboBox(fDataShow.foView.FindComponent('
fld_'+inttostr(i)))
do
begin
cbs:=Items;
for k:=0
to cbs.Count-1
do
begin
if pos(inzidenz[j].csvVal,cbs.Strings[k])>0
then // auswahl gefunden
begin
ItemIndex:=k;
break;
end;
end;
end;
cbs.Free;
... und später knallts, weil im onchange Ereignis noch ein paar wichtige Dinge passieren, die hier nicht ausgeführt werden
fDataShow.cobsgChange(TComboBox(fDataShow.foView.FindComponent('fld_'+inttostr(i))));
.. und das funktioniert nicht!