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] > > > > > > > > >