Delphi - Problema con OnKeyDown

   
Vista:

Problema con OnKeyDown

Publicado por Mcanuto (1 intervención) el 12/05/2013 14:54:06
Estoy creando una aplicación en delphi y necesito activar un timer con la función OnKeyDown usando este código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
  ...
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_F1: Timer1.Enabled := True;
    VK_F2: Timer1.Enabled := False;
  end;
end;


El código funciona pero solo si tengo la ventana de la aplicación en primer plano si la tengo en segundo plano no me va. ¿Alguna solución?

Saludos.
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

Problema con OnKeyDown

Publicado por E.T. (1108 intervenciones) el 13/05/2013 17:54:07
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