radiogroup.focused

[laine]

Olá pessoal

estou tendo problema com um radiogroup, a rotina que estou usando esta abaixo.

procedure TOrca.Edit1Exit(Sender: TObject);

begin

if (RadioGroup1.Focused) then

Abort;

edit1.text := dm.sqlclientenome.asstring;

end;

no debug percebi que o radiogroup1.focused esta sendo ignorado.

[Douglas Soares]

:blink:

Tenta assim:

procedure TOrca.Edit1Exit(Sender: TObject);
begin
if RadioGroup1.Focused then
Abort
else
edit1.text := dm.sqlclientenome.asstring;
end;

Abraços

[laine]

:blink:

Tenta assim:

procedure TOrca.Edit1Exit(Sender: TObject);
begin
if RadioGroup1.Focused then
Abort
else
edit1.text := dm.sqlclientenome.asstring;
end;

Abraços

Douglas assim tambem não funcionou

[flavioavilela]

bom, você poderia fazer assim, se eu entendi o que você quer fazer:

crie uma variável chamada ativo do tipo boolean... no evento onEnter do RadioGroup você atribui a variavel a true e no onExit você atribui a variavel a false...

ai você verifica:

if ativo then
  faça algo
else
  faça algo também

tente assim para ver se funciona...

Editado Janeiro 6, 2011 por flavioavilela

[Douglas Soares]

Tente com Exit...

procedure TOrca.Edit1Exit(Sender: TObject);
begin
if RadioGroup1.Focused then
Exit;

edit1.text := dm.sqlclientenome.asstring;
end;

Abraços

[Jhonas]

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if RadioGroup1.Focused = false then
   showmessage('RadioGroup sem foco')
else
   showmessage('RadioGroup com foco');

   edit1.text := 'Teste';
end;

Se ao sair do Evento OnExit do Edit o foco não cair em um componente RadioGroup1, a mensagem sempre será

'RadioGroup sem foco'

abraço

[laine]

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if RadioGroup1.Focused = false then
   showmessage('RadioGroup sem foco')
else
   showmessage('RadioGroup com foco');

   edit1.text := 'Teste';
end;

Se ao sair do Evento OnExit do Edit o foco não cair em um componente RadioGroup1, a mensagem sempre será

'RadioGroup sem foco'

abraço

value jhonas assim resolveu