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] -------------------------------------------------------------- SysRS Tecnologia da Informação Ltda. www.sysrs.com.br ----- Original Message ----- From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.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 [mailto:[EMAIL PROTECTED] Em nome de Celso Lorenzetti - GMail Enviada em: quarta-feira, 14 de novembro de 2007 16:59 Para: delphi-br@yahoogrupos.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] <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]