Controles

[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 !!!

[roman]

dao_ar:

Siempre es bueno que aclares cuál fue tu solución final para que otros con dudas similares puedan aprovecharla.

// Saludos

[dao_ar]

Ok.

Lo solucione con preguntando a donde va el foco (Noshy).

if (not canterior1.Focused) or (not canterior2.Focused) then ...

Tambien anduvo la idea de Roman
if ((Sender as TEdit).Text = '') and ((Sender as TWinControl).TabOrder < ActiveControl.TabOrder) then
..
pero la otra es mas simple. Y como no dejo muchas alternativas donde ir, solo para los anteriores o Cancelar
se puede controlar con la alternativa de Noshy.

Gracias a todos.