Ver Mensaje Individual
  #3  
Antiguo 10-06-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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:

Código:
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;

Última edición por roman fecha: 10-06-2003 a las 16:43:42.
Responder Con Cita