Asunto: Programar pulsación de tecla F12 en formulario
Estoy realizando una aplicación con Delphi y quisiera saber cómo programar la pulsación de la techa F12, en concreto quiero que ejecute un procedimiento cuando se pulse esta tecla en un formulario.
¿en qué evento debo ponerlo? ¿qué código tengo que utilizar?
Publicado:
Mie Mar 26, 2008 8:58 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Programar pulsación de tecla F12 en formulario
Anuncios
varios escribió:
Estoy realizando una aplicación con Delphi y quisiera saber cómo programar la pulsación de la techa F12, en concreto quiero que ejecute un procedimiento cuando se pulse esta tecla en un formulario.
¿en qué evento debo ponerlo? ¿qué código tengo que utilizar?
Para lo que nos comentas debes utilizar el evento "OnKeyDown" del "TForm".
Un ejemplo del código que debes utilizar en este evento es:
Código:
procedure TFormFacturas.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Key = VK_INSERT then
begin
md.tTablaFacturas.Append;
txtNumero.SetFocus;
key := 0;
end;
if Key = VK_ESCAPE then
md.tTablaFacturas.Cancel;
if Key = VK_F12 then
begin
ejecutarProcedimientoParaTeclaF12();
end;
if Key = VK_F7 then
begin
bImprimirClick(Self);
end;
if not ((activecontrol is tbutton) or (ActiveControl is tdbgrid)) then
begin
if Key = VK_DOWN then
begin
md.tTablaFacturas.Next;
key := 0;
end;
if Key = VK_UP then
begin
md.tTablaFacturas.Prior;
key := 0;
end;
end;
end;
Publicado:
Mie Mar 26, 2008 9:10 pm
varios Magnífico usuario
Registrado: Oct 10, 2006 Mensajes: 2092
Asunto: hecho, pero no funciona
Lo he hecho tal y como me has indicado pero sigue sin funcionar la pulsación de la tecla ¿debo hacer algo más?
Publicado:
Mie Mar 26, 2008 9:12 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: hecho, pero no funciona
Anuncios
varios escribió:
Lo he hecho tal y como me has indicado pero sigue sin funcionar la pulsación de la tecla ¿debo hacer algo más?
Efectivamente, se nos ha olvidado comentarte que en la propiedad "KeyPreview" del TForm (formulario) debes tener el valor a True.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A