Re: [delphi-br] OnKeyUp - Error
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
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]
--
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
[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] -- 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
Re: [delphi-br] OnKeyUp - Error
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] -- 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
