Já pensou em usar um ActionList, acho que resolveria seu problema.
Daniel Bastos <[EMAIL PROTECTED]> escreveu: btnTesteClick(Sender);
Em 29/03/06, Cristiano Rodrigo Gomes
escreveu:
>
> Olá pessoal.
>
> Gostaria de nos cadastros utilizar as teclas de funções, por exemplo F1
> Novo F2 Alterar.
>
> Porém estou utilizando um componente chamado TPNGIMAGE, onde o mesmo não
> possui a propriedade .CLICK.
>
> Existe uma outra forma de faze com que ao pressionar a tecla F1, F2 ele
> execute os comandos do botão que estão na propriedade ONCLICK do mesmo.
>
> Ah, como ainda não consegui testar gostaria de saber se a forma de chamar
> estas teclas estão corretas, estou fazenda da seguinte forma:
>
> keypreview do form coloquei como TRUE.
>
> procedure Tform1.FormKeyDown(Sender:TObject; var Key: Word; Shift:
> TShifState);
> begin
> if key = vk_F1 Then
> {comandos que estão no botão}
> end;
>
> Delphi 7
>
> Sds.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
