Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-01-2009
Ðαяισš Ðαяισš is offline
Miembro
 
Registrado: dic 2008
Posts: 42
Poder: 0
Ðαяισš Va por buen camino
Evento "KeyPress" Como Usarlo?

Hola nuevamente, esta ves quisiera saber como activar un evento o funcion al presionar una tecla Cabe decir que el form estara minimizado cuando yo presione cierta tecla supongamos

(F1)

luego de activar dicha funcion

Código Delphi [-]
Timer.Enabled := True

deseo que con la misma tecla se desactive dicha funcion

Código Delphi [-]
Timer.Enabled := False

Se puede eso?

he estado "Investigando" y lo unico que encontre fue esto:

Código Delphi [-]
Procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (GetAsyncKeyState(VK_F1) <> 0); then
Timer.Enabled := True
end;

pero no se como hacer para que con la misma tecla se desactive tal funcion

Código Delphi [-]
Timer.Enabled := False

Alguien sabe como?

Gracias a quienes puedan ayudarme.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como hacer que se vea "Si" en vez de "TRUE" en un DBGrid lu9eui C++ Builder 2 07-08-2007 04:03:13
Necesito llamar a métodos de clases "hija" desde su clase "padre" Flecha OOP 17 20-04-2007 00:03:53
Microsoft México - invita al evento "Mentes aplicadas" Héctor Randolph Noticias 0 27-11-2006 20:08:23
Capturar evento "afterpaste" del portapapeles. Jose_Pérez API de Windows 5 13-01-2005 12:02:56


La franja horaria es GMT +2. Ahora son las 19:01:22.


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
Copyright 1996-2007 Club Delphi