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

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

[jafera]

Empezado por ecfisa

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.

Con este código ahora no me deja escribir nada en el dbgrid, creo la nueva linea y cuando intento escribir en cualquiera de los campos se queda igual, es como si no estuviera en edición

Saludos

[ecfisa]

Hola jafera.

Parece que yo también optimicé sin pensar mucho...

Debería haber sido:

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

Saludos.

[jafera]

Este si funciona.

Problema solucionado.

Gracias mil

Josep