![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
![]() me pasaron este codigo y solucione lo del esc+f4
if (HiWord(GetKeyState(VK_escape)) <> 0)and(HiWord(GetKeyState(VK_f4)) <> 0) then ![]() pero aun no puedo solucionar lo de evitar la accion del escape osea que no me cancele o borre nada ![]() |
#2
|
||||
|
||||
Como has encontrado la solución, lo que procede es dejarlo, no borrarlo, así otros usuarios tendrán acceso a esa solución.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
![]() |
#3
|
||||
|
||||
A ver si esto te resulta útil:
Código:
object Form1: TForm1 Left = 359 Top = 278 Width = 299 Height = 190 Caption = 'Demostración de pulsacion de teclas' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object ApplicationEvents1: TApplicationEvents OnMessage = ApplicationEvents1Message Left = 96 Top = 48 end end
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
#4
|
||||
|
||||
![]() interesante aporte Ardilla lo voy a probar
![]() |
#5
|
||||
|
||||
Date cuenta, que el procedimiento en sí, no comprueba que ambas estén pulsadas, sino que comprueba que la secuencia sea precisamente esa.
Se puede optimizar un poco para comprobar que a sido correcta la secuencia. Es decir, tal cual está, se puede pulsar ESC, A y F4 y saltaría, por lo que cambiando el estado de la variable en el caso de que no sea esa la secuencia, se vuelve a "iniciar" la variable.
También se podría comprobar la secuencia distinta por ejemplo F4-ESC, solamente hay que jugar con las variables........
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
capturar error | gulder | Conexión con bases de datos | 1 | 09-06-2006 18:51:20 |
Capturar error | silviodp | Conexión con bases de datos | 3 | 01-07-2005 11:59:36 |
Capturar Tecla | Sick boy | OOP | 0 | 25-09-2004 11:27:59 |
Capturar pantalla | pablo | Varios | 1 | 07-09-2004 20:15:10 |
Capturar Sonido | cancerbero | Varios | 0 | 14-08-2004 01:15:47 |
![]() |
|