Evento OnExit e RAdioGroup
20/01/2006
0
[color=darkred:8510aea93b][b:8510aea93b]Preciso disso :[/b:8510aea93b][/color:8510aea93b]
Mas quando o Usuário Clicar no RadioGroup o evento OnExit deve ser desconsiderado...
:wink: :wink:
Sabemos que a [b:8510aea93b]situação analoga [/b:8510aea93b]quando o Usuário Clica Nun Botao é :
procedure TFormMovimentoCheques.MaskEdit3Exit(Sender: TObject); begin if (not (BitCancelar.Focused))) then begin //Faço o que quiser quando o botao Cancelar Não for Pressionado end; end; end;
:idea: :idea: :idea: :idea:
A primeira idéia que eu tive foi testar [b:8510aea93b]RadioGroup1.Focused [/b:8510aea93b], :arrow: :arrow: por analogia com a instrução acima
Porem este raciocineo não funciona com RadioGroup :cry: :cry: :cry:
Como resolver este pepino :P :P :P :P
Obrigado..
Marco Salles
Posts
22/01/2006
Carlosrm
isso ajuda ?:
procedure TF_Resumo.MaskEdit1Exit(Sender: TObject); begin if (TRadioButton(RadioGroup1.Controls[0]).focused = false) and (TRadioButton(RadioGroup1.Controls[1]).focused = false) and (TRadioButton(RadioGroup1.Controls[2]).focused = false) then showmessage(´Saí do maskedit1 !´); end;
carlosrm
23/01/2006
Edilcimar
no oncreate do form
saiu := ´´;
entrou := ´´;
no onenter do maskedit
entrou := ´maskedit´;
na saída do maskedit e entrada do radiogroup
entrou := ´radiogroup´;
saiu := ´maskedit´;
fazendo o caminho inverso
saiu :=´radiogroup;
entrou := ´maskedit´;
como pode ver vc sempre sabe de onde veio e onde está
23/01/2006
Emerson Nascimento
Espero que tenha resolvido seu problema. Se não resolveu, aí vai uma dica:
procedure TForm1.MaskEdit1Exit(Sender: TObject); var i: integer; emFoco: boolean; begin emFoco := False; for i := 0 to RadioGroup1.Items.Count-1 do if RadioGroup1.Buttons[i].Focused then begin emFoco := True; break; end; if not BitCancelar.Focused and emFoco then ShowMessage(´Vai usar a máscara...´) else ShowMessage(´Não vai usar a máscara ainda...´); end;
fiz o exemplo usando o [i:a92178c31e]for[/i:a92178c31e] porque torna o código genérico, sem eu precisar me importar com o número de itens do RadioGroup.
23/01/2006
Emerson Nascimento
procedure TForm1.MaskEdit1Exit(Sender: TObject); var i: integer; RadioGroupEmFoco: boolean; begin RadioGroupEmFoco:= False; for i := 0 to RadioGroup1.Items.Count-1 do if RadioGroup1.Buttons[i].Focused then begin RadioGroupEmFoco := True; break; end; if not BitCancelar.Focused then begin if RadioGroupEmFoco then ShowMessage(´Vai usar a máscara...´) else ShowMessage(´Não vai usar a máscara ainda...´); end; end;
23/01/2006
Marco Salles
Estamos com ventade de comprar esta terra e anexa-la ao complexo Mineiro , eu mesmo pessoamente vou encaminhar esta proposta para o Aecio , ja que nesta época estas terras pertecen a nós , porque não o Resto Do ano...Heheheheh
23/01/2006
Edilcimar
23/01/2006
Carlosrm
Boas férias, uai! Que a Vila Velha te traga novas idéias, para compartilhar com a gente...
carlosrm
24/01/2006
Marco Salles
Oh LADRÃO
Desse jeito vai me despenar...
Aonde voce bebe as suas edilcimar , velho amigo...
26/01/2006
Edilcimar
26/01/2006
Marco Salles
Voce vai responder a este tópico ou vou ter qu abrir a um Novo amigo edicilmar ???
´Donde´ ´ce´ Bebe Nesta Cidade ... ????
Este questão to levando uns cinco dias e ate agora nada :cry: :cry:
26/01/2006
Marco Salles
Voce vai responder a este tópico ou vou ter qu abrir a um Novo amigo edicilmar ???
´Donde´ ´ce´ Bebe Nesta Cidade ... ????
Este questão to levando uns cinco dias e ate agora nada :cry: :cry:
26/01/2006
Martins
Voce vai responder a este tópico ou vou ter qu abrir a um Novo amigo edicilmar ???
´Donde´ ´ce´ Bebe Nesta Cidade ... ????
Este questão to levando uns cinco dias e ate agora nada :cry: :cry:[/quote:9f0874357f]
Hehehe!!!!
De qualquer forma, aproveite as férias, e quando voltar teste os códigos.
Boa sorte!!!
26/01/2006
Marco Salles
Obrigado pelas mp enviadas amigo edicilmar..
é o que farei Martins , é o que farei...
03/02/2006
Marco Salles
Bem , a dica que o emerson.en me passou não esta compilando :cry: :cry:
[URL=http://imageshack.us][img:26bdd03ce4]http://img439.imageshack.us/img439/9502/imagem1emersonen0qu.jpg[/img:26bdd03ce4][/URL]
Olhe o erro que esta dando ;
O que esta faltando amigo ????
Clique aqui para fazer login e interagir na Comunidade :)