Controles

[dao_ar]

No es eso. En cada control estoy validando y no puede sarlir salvo que introduzca un dato. El tema es que si quierecancelar o ir a los controles anteriores no puede hacerlos por el valid en el onExit. y es esos casos, solo en esos, si tiene que salir, pero no debe poder ir a los controles siguientes si no introduce un dato. Se entiende.
Lo que necesito es que en el caso de que sea el boton de cancelar o en los casos de que sean controles anteriores pueda salir del control, pero no pueda avanzar. Tengo que detectar que control pulsa para saber si lo dejo salir o no.
Espero que se entienda

[noshy]

deberias ver que control focusea, en el evento onExit fijate a donde quiere ir...

Código Delphi [-]
if (not canterior1.Focused) or (not canterior2.Focused) then
  begin    
    showmessage('no puedes avanzar a ese control...');
    this.setfocus;
    exit;
  end;

[dao_ar]

Ok.

Estaba intentando hacer algo asi, tambien queria probar con ControlState. pero me devuelve un error. Muchas gracias

[ecfisa]

Hola dao_ar.

Fijate si no te da alguna idea este tema.

Saludos.

[dao_ar]

Gracias

Tambien puede ser una buena alternativa, se entiende perfectamente.

Gracias a todos.

[roman]

Otra idea:

El formulario tiene una propiedad ActiveControl, cuyo valor es el control activo en cada momento. En el evento OnExit de un control, ActiveControl contiene ya el control al que se va a desplazar el foco mientras que (Sender as TWinControl) contiene el control que se está abandonando. Entonces, podemos comparar la propiedad TabOrder de ambos controles para saber si estamos avanzando o retrocediendo:

Código Delphi [-]
{
  Asignamos este evento a todos los Edit.
}
procedure TForm1.EditExit(Sender: TObject);
begin
  if ((Sender as TEdit).Text = '') and ((Sender as TWinControl).TabOrder < ActiveControl.TabOrder) then
  begin
    ShowMessage('Falta capturar el dato');
    (Sender as TWinControl).SetFocus;
  end;
end;

// Saludos

[dao_ar]

Gracias por las ideas, con ellas pude resolver el problema decentemente !!!