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]

Responder a