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:
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.
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
0
