'Return no-apply'

[roman]

Con los eventos que ya están definidos me parece que no. Muchos de ellos suceden cuando el evento en sí ya ocurrió. Por ejemplo el evento OnChange por lo general es lanzado desde un método protegido Change cuya última acción es lanzar el evento, es decir, una vez que ya ocurrió el cambio.

Algunos eventos están diseñados específicamente para ser interrumpidos de ser necesario. Por ejemplo, un TreeView tiene el evento OnChanging que ocurre antes del evento OnChange y que pasa un parámetro AllowChange por referencia para que el programador pueda interrumpir el cambio.

En resumen sólo puedes interrumpir los eventos que están diseñados para ello. De la mayoría te enteras cuando en realidad ya ocurrieron.

Lo único que ahorita se me ocurre en tu caso específico es guardar el índice (ItemIndex) seleccionado en una variable y si las condiciones no se cumplen restaurarlo en el evento OnChange. Aunque posiblemente tengas que deshabilitar temporalmente el evento para no caer en él recursivamente:

var
  Evento: TNotifyEvent;

begin
  if not Condicion then
  begin
    Evento := ComboBox.OnChange;
    ComboBox.OnChange := nil;
    ComboBox.ItemIndex := IndexGuardado;
    ComboBox.OnChange := Evento;
  end
  else
  begin
    { Procesar el evento }
    IndexGuardado := ComboBox.ItemIndex;
  end;