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 <[EMAIL PROTECTED]> 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: [EMAIL PROTECTED] <celsolorenzetti%40ibest.com.br> > ---------------------------------------------------------- > SysRS Tecnologia da Informação Ltda. > www.sysrs.com.br > ----- Original Message ----- > From: Davi Eduardo Borges Wall > To: delphi-br@yahoogrupos.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: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto: > delphi-br@yahoogrupos.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: delphi-br@yahoogrupos.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: [EMAIL PROTECTED] <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]