Duvidas em radiobutton

Delphi

11/05/2011

Preciso que o formulario verifique se pelo menos uma das radiobutton foram checadas, mas nao to conseguindo montar esta comparação o codigo que estou usando é este:  
if (RadioButton1.checked = false) or (RadioButton2.Checked := false) then
 begin
    Application.MessageBox('O campo definição de grade não pode ser nulo!', 'Atenção', MB_ICONWARNING + MB_OK);
    GroupBox1.SetFocus;
    Exit;
 end;
  Obrigado
Daniel

Daniel

Curtidas 0

Respostas

Sérgio Saibel

Sérgio Saibel

11/05/2011

Ola Daniel...

Da forma como  esta fazendo com "OR" voce sempre irá entrar no if pois um rb sempre será checked = false.
Tente utilizar "AND" e ve se resolve o problema.

if (RadioButton1.checked = false) and (RadioButton2.Checked := false) then
 begin
    Application.MessageBox('O campo definição de grade não pode ser nulo!', 'Atenção', MB_ICONWARNING + MB_OK);
    GroupBox1.SetFocus;
    Exit;
 end;


Espero ter ajudado.

GOSTEI 0
POSTAR