Como hacer que el cursor vaya a un campo de un grid

[roman]

¿Has probado hacer la validación en el evento OnValidate del TField?

// Saludos

[jafera]

Gracias omán.

Si, fue lo primero que intente.

Lo que no consgo es volver el foco al campo erroneo para poder cambiarlo.

Saludos

[roman]

Si lees la ayuda del evento OnValidate, verás que para rechazar un valor debes lanzar una excepción. Al hacer esto, el foco no debería perderse puesto que, de hecho, la validación se hace antes de que se abandone el control.

En tu caso, podrías hacer así el evento OnValidate de tu campo:

Código Delphi [-]
procedure TF_ModulDades.ParticipacioDIVENDRESValidate(Sender: TField);
begin
  ParticipacioDIVENDRES.Value := UpperCase(ParticipacioDIVENDRES.Value);
  if (ParticipacioDIVENDRES.Value <> 'S') and (ParticipacioDIVENDRES.Value <> 'N') then
    raise Exception.Create('Valor no vàlid, sols S o N');
end;

O sea, en lugar de un simple ShowMessage, lanzas una excepción.

// Saludos

[jafera]

Gracias de nuevo.

Tampoco me funciona, ahora me lanza un error stack overflow desde el ide y me cierra la aplicacion desde el exe

Saludos

[roman]

Mmmm. Sí, supongo. Es una tontería mía por querer optimizar sin pensarlo bien.

Intenta así:

Código Delphi [-]
procedure TF_ModulDades.ParticipacioDIVENDRESValidate(Sender: TField);
begin
  if (UpperCase(ParticipacioDIVENDRES.Value) <> 'S') and (UpperCase(ParticipacioDIVENDRES.Value) <> 'N') then
    raise Exception.Create('Valor no vàlid, sols S o N');
end;

En el evento OnValidate, no en el OnChange.

// Saludos

[ecfisa]

Hola jafera.

Y si querés convertir a mayúsculas el valor antes de guardarlo, podés usar la línea (que copio del código de roman) en el evento BeforePost del TDataSet.

Código Delphi [-]
procedure TF_ModulDades.DataSetBeforePost(DataSet: TDataSet);
begin
  ParticipacioDIVENDRES.Value := UpperCase(ParticipacioDIVENDRES.Value);
end;

Saludos.

[jafera]

Gracias de nuevo

Ahora ya no lanza el error stack overflow, me avisa de que el valor no es valido, pero si pongo un valor por ejemplo 'a' no e lo borra, se queda el cursor en el campo pero con el valor no válido.

Si pongo el valor 's' no hace el uppercase para convertirlo a 'S'

Saludos

[ecfisa]

Empezado por jafera

...si pongo un valor por ejemplo 'a' no e lo borra, se queda el cursor en el campo pero con el valor no válido.
Si pongo el valor 's' no hace el uppercase para convertirlo a 'S'

Si, por que si no te desplazas en el DBGrid para que guarde los cambios no se dispara el evento BeforePost. Para lo que buscas tendrías que usar el evento OnKeyPress del TDBGrid.

Código Delphi [-]
procedure TF_ModulDades.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((Sender as TDBGrid).SelectedField.FieldName = 'Nombre_del_Campo') and (UpCase(Key) in ['N','S']) then
    Key:= UpCase(Key)
  else
    Key:= #0;
end;

Saludos.