Esse evento é de um componente TPanel que dentro dele tem 3 TEdits que representam: Material + Cor + tamanho.
Se o usuário clicar diretamente no Tamanho, ele está jogando o foco diretamente para o Material, porcausa daquele código do CMEnter. Mas se o usuário clicou no Tamanho deveria ficar lá... E se não tiver aquele código do CMEnter, o foco fica no TPanel quando ele tecla TAB, aí ele tem que dar um TAB a mais para o foco cair no Material. por isso queria separar as duas situações. Claro que com variáveis e eventos também daria para fazer, como outros colegas disseram, mas como gosto de coisas mais elaboradas, resolvi pedir ajuda dos colegas da lista. Obrigado, pelas respostas e interesse em ajudar Vitor. Att, Celso Lorenzetti Analista de Sistemas msn: [EMAIL PROTECTED] -------------------------------------------------------------- SysRS Tecnologia da Informação Ltda. www.sysrs.com.br ----- Original Message ----- From: Vitor Redes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 14, 2007 4:43 PM Subject: RES: [delphi-br] Determinar de onde veio o foco Mas existe uma 'lógica' para a pergunta? Tipo, porque a necessidade de saber isso? No OnEnter, vc pode escrever uma rotina para pegar o cursor do mouse e comparar com a posição absoluta do componente... é uma... Dá pra utilizar o evento OnClick, ou o OnMouseDown, tem várias maneiras de se fazer isso, só não entendi a necessidade... Vitor. _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Nilson Chagas Enviada em: quarta-feira, 14 de novembro de 2007 15:41 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Determinar de onde veio o foco Juntando a sua mensagem com a do Davi (antes que ele explouda. rsrsrs)... Voce pode trabalhar com uma variavel Flag para tentar descobrir isto... pq se naum me engano o evento OnClick ocorre antes do OnEnter. []s Em 14/11/07, Celso Lorenzetti - GMail <clorenzettibr@ <mailto:clorenzettibr%40gmail.com> gmail.com> escreveu: > > Olá Davi, acho que com o código abaixo fica mais fácil para entender o > que pergunto.. > > procedure TMaterial.CMEnter(var Message: TCMEnter); > begin > FValorAnterior := GetValor; > > // Aqui neste IF gostaria de saber se ele clicou com o mouse ou foi um > TAB, e só entrar nele se fou com um TAB. > > if ClFocus(FMaterial) then > begin > FMaterial.SelectAll; > FMaterial.SetFocus; > end; > end; > > Teria que ser aqui porque aqui irá disparar sempre, mesmo que ele tecle > TAB. Entendeu? > > Att, > > Celso Lorenzetti > Analista de Sistemas > msn: celsolorenzetti@ <mailto:celsolorenzetti%40ibest.com.br> ibest.com.br <celsolorenzetti%40ibest.com.br> > ---------------------------------------------------------- > SysRS Tecnologia da Informação Ltda. > www.sysrs.com.br > ----- Original Message ----- > From: Davi Eduardo Borges Wall > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br <delphi-br%40yahoogrupos.com.br> > Sent: Wednesday, November 14, 2007 3:13 PM > Subject: RES: [delphi-br] Determinar de onde veio o foco > > Celso, sinceramente, ali embaixo do seu nome diz ANALISTA DE SISTEMAS. > Lembre-se disso. > > Essas são perguntas de programador Junior. > > Para saber se o EDIT foi clicado, uma das alternativas (a mais simples que > consigo imaginar) é pegar o EVENTO ONCLICK DO EDIT? > > Se gerou o evento então é pq foi clicado nesse componente????? Não seria > isso ??? > > De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br <delphi-br%40yahoogrupos.com.br> [mailto: > [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br <delphi-br%40yahoogrupos.com.br>] Em nome de > Celso Lorenzetti - GMail > Enviada em: quarta-feira, 14 de novembro de 2007 16:59 > Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br <delphi-br%40yahoogrupos.com.br> > Assunto: [delphi-br] Determinar de onde veio o foco > > Mais uma, > > tem como eu saber se o foco que o componente TEdit recebeu, > > foi porque o usuário teclou um Tab no componente anterior ou se ele clicou > direto nele com o mouse? > > Obrigado. > > Att, > > Celso Lorenzetti > Analista de Sistemas > msn: celsolorenzetti@ <mailto:celsolorenzetti%40ibest.com.br> ibest.com.br <celsolorenzetti%40ibest.com.br><mailto: > 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] > > > [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]