Controles

[noshy]

No se si entendi bien, pero creo que quieres hacer una validacion individual para cada edit por ejemplo y no hacerlo en el boton grabar, si es asi la puedes hacer en el evento onexit de cada control, o sea la vaidas cuando intenta salir del control, cuando todos los controles esten validados recien activas el boton grabar, de lo contrario puede dejar activo el boton cancelar.

Espero que te sirva y yo haya captado la idea, si no es asi, pon algun ejemplo y te ayudo con gusto.

[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