Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Entrada datos rápida (https://www.clubdelphi.com/foros/showthread.php?t=6128)

Manuel 18-12-2003 23:02:55

Entrada datos rápida
 
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 19-12-2003 00:16:21

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 13-01-2004 17:36:34

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

Manuel 13-01-2004 21:38:38

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;


La franja horaria es GMT +2. Ahora son las 18:43:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi