• Domingo 22 de Diciembre de 2024, 10:07

Autor Tema:  presionar F1  (Leído 3040 veces)

beniciog

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
presionar F1
« en: Lunes 28 de Junio de 2010, 06:56 »
0
hola soy un programador novato la pregunta es la siguiente quiero saber como se hace cuando al presionar la tecla F1 del teclado me abra una ventana de mi programa delphi .Desde ya gracias .Benicio

Avindel

  • Nuevo Miembro
  • *
  • Mensajes: 3
  • Nacionalidad: hn
    • Ver Perfil
Re: presionar F1
« Respuesta #1 en: Martes 29 de Junio de 2010, 22:31 »
0
Hola, personalmente no te recomendaria utilizar esa tecla, puesto que esta en su mayoria es para mostrar la ayuda al usuario, almenos asi se acostumbra, sinembargo aqui te pongo el codigo, primero antes que nada tendras que activar en las propiedades de tu form la propiedad keypreview a true, despuesde eso el codigo va en el evento onKeydown de tu form :

Código: Delphi
  1.  
  2. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  3.   Shift: TShiftState);
  4. begin
  5.         if key = VK_F1 then
  6.         begin
  7.         /// hago algo
  8.         end;
  9. end;
  10.  
  11.  

beniciog

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: presionar F1
« Respuesta #2 en: Jueves 1 de Julio de 2010, 02:40 »
0
Avindel gracias por tu ayuda funciono perfectamente .Benicio

Avindel

  • Nuevo Miembro
  • *
  • Mensajes: 3
  • Nacionalidad: hn
    • Ver Perfil
Re: presionar F1
« Respuesta #3 en: Jueves 1 de Julio de 2010, 18:23 »
0
Cita de: "beniciog"
Avindel gracias por tu ayuda funciono perfectamente .Benicio
ok, me alegra haber ayudado.