Cita:
Empezado por ecfisa
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