Ver Mensaje Individual
  #11  
Antiguo 14-02-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita