Valeu... vou tentar ambas as maneiras... obrigado!
Leandro
----- Original Message -----
From: "TObject" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, October 10, 2005 2:01 PM
Subject: Re: [delphi-br] Reconhecer CTRL+F
Primeiro fixe a propriedade KeyPreview do Form para TRUE
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (chr(Key) in ['F', 'f']) then
ShowMessage('Ctrl-F');
end;
----- Original Message -----
From: O2 Tecnologia em Sistemas
To: delphi-br@yahoogrupos.com.br
Sent: Monday, October 10, 2005 1:36 PM
Subject: Re: [delphi-br] Reconhecer CTRL+F
Adicione um popmenu, atrele-o ao Grid, e item dele coloque os HotKeys
que deseja.
Leandro escreveu:
>Pessoal,
>
>Preciso saber qdo o usuario teclar CTRL+F em um grid, mas o seguinte
>codigo nao funciona (no evento KeyDown).
>
>if (ssCtrl in Shift) and (Key = Ord('F')) then
> begin
> //codigo aqui
> end;
>
>A variavel key vem com um valor que nao tem nada a ver com 'F'. Eu teria
>que fazer isso em outro evento, ou o codigo esta errado??
>
>Desde já agradeço,
>
>Leandro
>
>
>
>
>
--
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< 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] ou [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
