Ver Mensaje Individual
  #7  
Antiguo 26-07-2010
Avatar de afunez2007
afunez2007 afunez2007 is offline
Miembro
 
Registrado: oct 2007
Ubicación: La Ceiba, Honduras
Posts: 170
Reputación: 17
afunez2007 Va por buen camino
Lightbulb

Cita:
Empezado por ecfisa Ver Mensaje
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.
Esta es una forma de hacerlo, pero lo mas sencillo es que ejecute el evencto click del boton

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F5 then
  begin
    Button1.Click;
  end;
end;

Mucho menos codigo, jeje!!

Lo que comenta Lepe sobre TAction y TActionList, es muy cierto yo lo he usado en muchas ocasiones y va de maravilla.

Ahora si requiero hacer algo rapido y si mayores necesidades de cambio en tiempo de ejecucion, utilizo el envento OnKeyDown del formulario como he comentado arriba.

Saludos
__________________
Si robas, roba un beso, si mientes que sea por amor y si engañas que sea a la muerte!!
Responder Con Cita