Atalho no delphi..
[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
Curtidas 0
Respostas
Nglauber
28/05/2003
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,
GOSTEI 0
Redsys
28/05/2003
[list:30885ed5a6] não entendi direito aonde no seu codigo mostra a ligação do botão para funcionar o atalho.[/list:u:30885ed5a6]
GOSTEI 0
Prosystem
28/05/2003
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
GOSTEI 0