selber aufrufen von OnChange verhindern?

[marabu]

Hallo,

wenn die Komponente nicht Enabled ist, dann werden auch keine Ereignisse ausgelöst:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  with ComboBox do
  begin
    Enabled := False;
    ItemIndex := Succ(ItemIndex) mod Items.Count;
    Enabled := True;
  end;
end;

procedure TDemoForm.ComboBoxChange(Sender: TObject);
begin
  with ComboBox do
    if ItemIndex < 0
      then ShowMessage('?')
      else ShowMessage(Text);
end;

Grüße vom marabu