Adquirindo uma licença anual do Tecnobyte SAC Lite, Tecnobyte SAC Plus ou Tecnobyte SAC Pro até 31/12/2024, você economiza 14,69% em relação ao novo valor mensal, pois evita o reajuste e ainda mantém os 10% de desconto da anuidade.
A API keybd_event do Windows serve para fazer isto. No exemplo abaixo estamos simulando o pressionamento da tecla F2: keybd_event(VK_F2, 0, 0, 0); Para testar faça o exemplo a seguir: - Mude a propriedade KeyPreview do form para true. - Escreva no evento OnKeyDown do form como abaixo: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F2 then ShowMessage('F2 pressionada'); end; - Coloque um botão e escreva no OnClick (do botão) como abaixo: procedure TForm1.Button1Click(Sender: TObject); begin keybd_event(VK_F2, 0, 0, 0); end;
O conteúdo desta página pode ajudar alguém? Compartilhe!