Hola Faust.
Si te referís a que el botón baje y suba como si se hubiera realizado un click con el mouse, no.
Pero se puede escribir algo de código para hacerlo:
Código:
procedure TForm1.HacerClick(Sender: TButton);
begin
with (Sender as TButton) do
begin
Perform(WM_LBUTTONDOWN, MK_LBUTTON,0);
Sleep(250); // un poco de espera para que se note...
Perform(WM_LBUTTONUP, MK_LBUTTON,0);
end;
end;
Y utilizarlo así :
Código:
....
case Key of
VK_NUMPAD0: HacerClick(Button0);
VK_NUMPAD1: HacerClick(Button1);
end;
...
HacerClick, dispara el evento OnClick del ButtonX, como si se hubiese pulsado sobre él.
Saludos.