Galera, olha eu tentei fazer os exemplos q achei na net e os q me
passaram....HJ eu falei com um camarada e ele me passou um codigo que
funcionou perfeitamente...
se alguem tiver o mesmo problema q eu, o código ta ai...espero q
ajude alguem assim como me ajudou..
Detalhe: Não esquecer de ativar o keypreview para true e esse evento
é no keydown do formulario ou onde for utilizar...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssShift in Shift then
if UpperCase(Chr(Key)) = 'P' then
ShowMessage('shift+p');
if ssCtrl in Shift then
if UpperCase(Chr(Key)) = 'P' then
ShowMessage('ctrl+p')
end;
--- Em delphi-br@yahoogrupos.com.br, "Thiago Filiano (America Soft)"
<[EMAIL PROTECTED]> escreveu
>
> tenta assim:
>
> if ((ssCtrl in Shift) and (Key = 80)) then
> ShowMessage('agora funcionou!!!');
>
>
> []'s
>
> *Thiago Filiano *
>
>
> Ricardo Mendes escreveu:
> > Gostaria de tirar um duvida com vcs....
> > Alguem poderia me dizer como faço para realizar a combinação de
tecla no dephi.
> >
> > Exemplo...
> > eu preciso que qdo a tecla Ctrl + P for pressionada ele imprima
um recibo e qdo a tecla Shift + P for pressionada um recibo completo
seja impresso...
> >
> > alguem pode me ajudar...
> >
> > Desculpe se é uma pergunta meio q sem noção...
> > mas ja procurei na net e até agora não funciona...
> >
> > utilizo D7
> >
> > Ricardo
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
>
