Delphi - help enter

 
Vista:

help enter

Publicado por oaa (3 intervenciones) el 29/04/2002 13:04:57
como hago para pasar de edit en edit tecleando enter y no tab
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:help enter

Publicado por vte (108 intervenciones) el 29/04/2002 16:21:00
En el formulario
propiedad keypreview = True
Evento OnKeyPress
If (key = #13) and (ActiveControl is TDBEdit) then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
key := #0;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:help enter

Publicado por Ignacio (3 intervenciones) el 29/04/2002 17:58:41
Has lo que te ha dicho vte (29/04/2002), pero en el onKeyPress pregunta mejor por:

if (Key = Char(VK_RETURN))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:help enter

Publicado por MIGUEL (10 intervenciones) el 09/05/2002 23:55:12
Bien: aunque yo no he sido el que ha preguntado, todo ha salido bien. pero como hago para que con enter no se ejecuten tambien botones, sino solo los edit?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar