Ver Mensaje Individual
  #4  
Antiguo 29-12-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Miguel.

Un ejemplo basado en el código de tu primer mensaje:
Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview    := True;  // el form recibe evento teclado antes que el control activo
  Timer1.Enabled:= False
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // codigo a ejecutar OnTimer
end;

procedure TForm1.btnIniciarClick(Sender: TObject);
begin
  Timer1.Interval:= StrToInt(EditIntervalo.Text);
  Timer1.Enabled := True
end;

procedure TForm1.btnPararClick(Sender: TObject);
begin
  Timer1.Enabled := False
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_F5: btnIniciar.Click; // F5: Iniciar
    VK_F6: btnParar.Click;   // F6: Parar  
  end;
end;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita