Ver Mensaje Individual
  #3  
Antiguo 21-07-2010
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 Ibidi.

.Poné la propiedad del form KeyPreview a True
.Poné lo siguiente en el evento OnKeyDown del Form.
Código:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F5 then
  begin
    PostMessage(Button1.Handle, WM_LBUTTONDOWN, MK_LBUTTON,0);
    PostMessage(Button1.Handle, WM_LBUTTONUP, MK_LBUTTON,0);
  end;
end;
Esto te ejecutará lo que tengas en el evento OnClick del TButton.

Saludos.
__________________
Daniel Didriksen

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