Para saber se ALT+S foi pressionado, por exemplo, utilize o código:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Char(Key)='S') and (ssAlt in Shift) then
ShowMessage ('ALT + S');
end;
Não deve-se utilizar a unit QT em aplicações VCL... a unit QT é para aplicações
CLX.
Abraço,
Daniel Polistchuck
Consulting Services Manager
Borland Software Corporation
Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
[EMAIL PROTECTED] - www.borland.com.br <http://www.borland.com.br/>
A Borland Software Corporation é líder global em soluções independentes de
plataforma para o Software Delivery Optimization, auxiliando nossos clientes a
resolverem as restrições no desenvolvimento de aplicações nos dias de hoje,
para maximizar o valor do negócio de seu software
________________________________
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Moked
- Tamara (Brazil)
Sent: Wednesday, November 30, 2005 8:52 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] RE:Código de tecla pressionada - off
Daniel,
Estou usando VCL... Resolvi meu problema fazendo (como diz meu colega de
trabalho) uma gambiarra no sistema, criei uma função chamada Aborta q
simplesmente executa o abort em uma Unit separada.
Minha solução provavelmente ñ é a melhor, se puder me ajudar...
Abrigada,
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br
Grau de Sigilo: Confidencial Reservado Interno Amplo
Nível de Prioridade: Alto Médio Baixo
Destinatário/s: Lista de divulgação
-------------------------------------------------------------------------
Tamara
"O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo
sua reprodução sem a prévia autorização do mesmo".
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
comprometimento com os Custo envolvidos!
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12fktben9/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1133355270/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/>
________________________________
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] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! <http://br.yahoo.com/info/utos.html> .
[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
