Ai Ai Ai Ai Ai tenho que ensinar um Analista de Sistemas como programar!!!!!!!!
Procedure TEdit.Onclick(Sender TObject); Begin FEntrouComMouse := True; // esta é uma variável global inicializada com False End; 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 FENTROUCOMMOUSE THEN FACAESSEPROCESSO; if ClFocus(FMaterial) then begin FMaterial.SelectAll; FMaterial.SetFocus; end; end; Essa é a forma mais simples de fazer. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Celso Lorenzetti - GMail Enviada em: quarta-feira, 14 de novembro de 2007 17:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Determinar de onde veio o foco 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] <mailto: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 <mailto: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 <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto: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 <mailto: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] <mailto: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]
