Entrada datos rápida

[Manuel]

hola amigos del foro:

Yo de nuevo con mis preguntas:

tengo una aplicación que procesa calificaciones de alumnos de un colegio, tengo una grilla en la cual ingreso las calificaciones que son del tipo 6.1 7.0, etc

para hacerlo más rapido el usuario ingresa 68 y con una rutinalo convierto 6.8, y luego para la otra calificación el usuario debe presionar enter, ahora la idea es si llena los dos dígitos genere el sistema un enter?, interesante, recivo sugerencias yo tengo algunas ideas. gracias campeones

[guillotmarc]

Hola

Cuando se llenan los dos dígitos (controlalo mediante el evento OnKeyPress), simula que se ha pulsado el tabulador.

PostMessage( GetParentForm(Self).Handle, WM_NEXTDLGCTL,0,0 );

Saludos.

[Manuel]

gracias, funciono, como lo pense antes, bueno si fuera a así, tenfría otro auto no el que tengo

[Manuel]

tengo un problema:
en el este evento veo si se lleno la casilla con dos digitos, y con la función hago que me salta a ala casilla de abajo en la grid. pero el valor del campo NO me captura el último digito ingresado. Ej.: 45 ingrado, salta a a la próxima celda y se guarda solo el 4. Que tendría que hacer?.

procedure TFIngresoNotas.ExDBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['0','2','1','3','4','5','6','7','8','9']) or (Key = #13)then
begin
inc(ndigitos);
Key := Key;
if ndigitos = 2 then
begin
ExDbgrid2.Perform(wm_KeyDown,vk_Down,0);
ndigitos:=0;
end;
end
else
begin
Aviso('Deben ser solo números',mb_IconInformation);
Key := ' ';
end;

end;