Delphi - SI SE PULSA UNA TECLA COMO DECIRLE QUE FUE OTRA

 
Vista:

SI SE PULSA UNA TECLA COMO DECIRLE QUE FUE OTRA

Publicado por wendy reyes rojas (12 intervenciones) el 28/07/2001 16:21:49
Los control de edición de delphi pasan el focus al siguiente control con la tecla tab. y necesito que sea con la tecla enter en los controles edit

lo que quiero es que cuando se pulse la tecla enter en un control específico dercirle que fue la tecla tab, para que me pasa el focus al siguiente control.
gracias
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:SI SE PULSA UNA TECLA COMO DECIRLE QUE FUE OTRA

Publicado por Ernesto D'Spirito (706 intervenciones) el 29/07/2001 05:23:55
En Delphi 5 puedes usar el componente ApplicationEvents y en su evento OnMessage escribir el siguiente código:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
case Msg.Message of
WM_KEYDOWN, WM_KEYUP:
case Msg.wParam of
// Reemplazar el ENTER en cuadros de texto por TAB
13: if Screen.ActiveControl is TCustomEdit then Msg.wParam := 9;
end;
end;
end;

Creo que Delphi 4 también tenía este componente. También creo que viene uno similar con las RXLIB. Si no lo tienes, te invito a leer mi artículo "CAPTURANDO MENSAJES DE LA APLICACION" del Boletín Pascal #19 que te explicará como capturar mensajes sin usar este componente, y el ejemplo del artículo muestra como reemplazar el punto del teclado numerico por una coma:

http://www.latiumsoftware.com/es/pascal/0019.php3

Espero que te sirva.

Ernesto
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