Fórum Atalho no delphi.. #163130
28/05/2003
0
[list:8e0efb250f]Como faço para criar atalhos para botões no delphi como apertar f9 e a função do botão é executada. [/list:u:8e0efb250f]
Redsys
Curtir tópico
+ 0
Responder
Posts
28/05/2003
Nglauber
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_F5 then
showMessage(´Eu pressionei a tecla F5´);
end; Não se esqueça de colocar a propriedade KeyPreview do Form para True
Espero ter ajudado,
Responder
Gostei + 0
28/05/2003
Redsys
[list:30885ed5a6] não entendi direito aonde no seu codigo mostra a ligação do botão para funcionar o atalho.[/list:u:30885ed5a6]
Responder
Gostei + 0
28/05/2003
Prosystem
Pelo que entendi bem o amigo nao esta ligando o botao mas sim o formulario, é por isto que esta mandando ativar a propriedade KEYPREVIEW.
Assim sendo voce deverá colocar uma instrucao de excessao para cada pressionamento desejado exemplo :
if key=key_f2 then
bloco de codigo
end;
if key=key_f3 then
bloco de codigo
end;
E assim por diante, no caso eu colocaria como bloco de codigo a acao click do botao desejado.
Será que é isto que voce deseja
Assim sendo voce deverá colocar uma instrucao de excessao para cada pressionamento desejado exemplo :
if key=key_f2 then
bloco de codigo
end;
if key=key_f3 then
bloco de codigo
end;
E assim por diante, no caso eu colocaria como bloco de codigo a acao click do botao desejado.
Será que é isto que voce deseja
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)