Sergio Brigou, Brigou e deu a solução de mão beijada.
hahahahahahahaha De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sergio Eurico Enviada em: quarta-feira, 14 de novembro de 2007 16:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Mostrar mensagem se Caps Lock estiver ligada Olá Celso, Voce ta de brincadeira ne? Você resolveu, do nada, que "desculpa" ( eu nao te pedi desculpas! ) minha "afobação" ( quem ta afobado é voce, que pergunta antes de pesquisar ) em "xingar" ( algem xingou quem aqui? ) aos "colegas que de repente nao estao no mesmo nivel seu..." ( que nivel meu? eu nao me acho melhor nem pior que ninguem aqui.. ) Sim, sou "das antigas" mas nao significa que eu tenha um nivel de conhecimento melhor ou pior.... Sua pergunta foi "alguém sabe me dizer como fazer para mostrar aquela mensagem do windows de que Caps Lock está ligada quando for um campo de senha?" Eu lhe dei o caminho das pedras, ou melhor, a dica pra resolver sua mensagem. Como respondi, escreve "delphi capslock" ( sem aspas) no google e o primeiro link lhe indicará a resposta... O primeiro link aponta para http://fzleite.tripod.com/dicas.html e logo no primeiro link desta pagina, inclusive em portugues, esta a seguinte dica "*Como verificar o status do NunLock, CapsLock e ScrollLock ?<http://fzleite.tripod.com/dicas.html#CAPSNUMSCROLL> *" onde aparece o seguinte trecho *Como verificar o status do NunLock, CapsLock e ScrollLock ?* Para verificar o status das teclas CapsLock, NumLock e ScrollLock basta utilizar a função GetKeyState, junto com as constantes VK_CAPITAL, VK_NUMLOCK e VK_SCROLLOCK Exemplo : *procedure* TForm1.Button1Click(Sender : TObject); *begin* *if* Odd(GetKeyState(VK_CAPITAL)) *then* Label1.Caption := 'Caps Lock Ligado' *else* Label1.Caption := 'Caps Lock Desligado'; *end;* *Contribuição dada por : *Fernando Zimmermann Leite Me parece claro, que, após detectar o estado da tecla, ele mostra a mensagem( como voce pediu ) através do label1.caption. Sugiro que você analise o código ou refaça sua pergunta. Abraço, boa sorte, tudo de bom. Sergio Eurico. Em 14/11/07, Celso Lorenzetti - GMail <[EMAIL PROTECTED] <mailto:clorenzettibr%40gmail.com> > escreveu: > > Olá Sérgio, > > Desculpo sua "afobação" em xingar os colegas que "derrepente" não estão no > mesmo nível seu... mas sempre faço isso, e lá não responde... > > Leia novamente minha pergunta, eu não quero saber se Caps Lock está > ligada, > > Eu perguntei como faço para mostrar aquela mensagem que o XP apresenta > quando vamos informar a senha.... > Essa é minha pergunta... > > Att, > > Celso Lorenzetti > Analista de Sistemas > msn: [EMAIL PROTECTED] <mailto:celsolorenzetti%40ibest.com.br> > <celsolorenzetti%40ibest.com.br> > ---------------------------------------------------------- > SysRS Tecnologia da Informação Ltda. > www.sysrs.com.br > ----- Original Message ----- > From: Sergio Eurico > To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > <delphi-br%40yahoogrupos.com.br> > Sent: Wednesday, November 14, 2007 2:58 PM > Subject: Re: [delphi-br] Mostrar mensagem se Caps Lock estiver ligada > > Olá Celso, > > Escreva as palavras "delphi capslock" ( sem as aspas ) no Google. > > O primeiro resultado da pesquisa te dará a resposta!! > > Aproveito para pedir aos membros que pesquisem antes de postar duvidas > como > esta no grupo.... > > Abraco. > > Em 14/11/07, Celso Lorenzetti - GMail <[EMAIL PROTECTED] > <mailto:clorenzettibr%40gmail.com> <clorenzettibr%40gmail.com>> > escreveu: > > > > Boa tarde galera, > > > > alguém sabe me dizer como fazer para mostrar aquela mensagem do windows > > de que Caps Lock está ligada quando for um campo de senha? > > > > Obrigado. > > > > Att, > > > > Celso Lorenzetti > > Analista de Sistemas > > msn: [EMAIL PROTECTED] <mailto:celsolorenzetti%40ibest.com.br> > > <celsolorenzetti%40ibest.com.br><celsolorenzetti%40ibest.com.br> > > ---------------------------------------------------------- > > SysRS Tecnologia da Informação Ltda. > > www.sysrs.com.br > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > Mensagens neste tópico > <http://br.groups.yahoo.com/group/delphi-br/message/179749;_ylc=X3oDMTM4ZmlkNXNjBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE3OTc1NARzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzExOTUwNjQ0NTkEdHBjSWQDMTc5NzQ5>( > 0) Responder (através da web) > <http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyZ204czJkBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE3OTc1NARzZWMDZnRyBHNsawNycGx5BHN0aW1lAzExOTUwNjQ0NTk-?act=reply&messageNum=179754>| > Adicionar > um novo tópico > <http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlNGM1bXNmBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTE5NTA2NDQ1OQ--> > Mensagens<http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlbmFkZ2ozBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTE5NTA2NDQ1OQ-->| > Arquivos<http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmOXE2cWFzBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzExOTUwNjQ0NTk->| > Fotos<http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlZTExOGo5BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTE5NTA2NDQ1OQ-->| > Links<http://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmaGhybTlmBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzExOTUwNjQ0NTk->| > Banco > de > dados<http://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjMmt2cTFyBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2RiBHN0aW1lAzExOTUwNjQ0NTk-> > -- > <<<<< FAVOR REMOVER E > [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]