Funcionou agora, mas o evento deve ser OnKeyUp mesmo.
----- Original Message -----
From: Giovani Benedetti Penha
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, August 27, 2006 2:24 PM
Subject: Re: [delphi-br] OnKeyUp - Error
Outro probleminha aí é que a variável Key é do tipo word, mas você tentou
comparar com um char ('P' e 'p'). Tenta assim
... key = Ord('P') or ...
Outro detalhe, não seria melhor colocar o evento no KeyDown ao invés do
KeyUp?
Abraços,
Giovani
Em 25/08/06, Atendimento - BG on-line <[EMAIL PROTECTED]> escreveu:
>
> WILLER
>
> eu utilizo Ctrl + enter para alguns tipos de consultas...
>
> If (Key = 13) and (ssCtrl in Shift) Then
>
> é assim... shift nao é um valor e sim um conjunto de valores... por isso o
> erro de tipos...
>
>
>
>
>
> ----- Original Message -----
> From: WILLER
> To: delphi-br@yahoogrupos.com.br
> Sent: Friday, August 25, 2006 12:36 PM
> Subject: [delphi-br] OnKeyUp - Error
>
>
> Estou tentando fazer com que uma função seja acionada quando o usuário
> pressionar ALT+P, só que dá erro de incompatibilidade de tipos, alguém sabe
> se cometi algum erro? Fiz ago errado? O ssAlt foi o próprio Delphi quem
> sugeriu.
>
>
>
> procedure TfrmBaixaMes.FormKeyUp(Sender: TObject; var Key: Word; Shift:
> TShiftState);
> begin
> IF Shift = ssAlt THEN
> IF (KEY = 'P')OR(KEY = 'p') THEN
> DM.ImpCab(1);
> end;
>
>
> [Error] frmBaixaMes_.pas(310): Incompatible types
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Giovani Benedetti Penha
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 1.1683 (20060728) __________
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
[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
