Controles

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

[roman]

dao_ar:

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

// Saludos