如何判断radiogroup1？

Question

如何判断radiogroup1，如果没有选任何items，就弹出提示，叫他必须选一个

Answer 1

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to form1.RadioGroup1.Items.Count-1 do
  begin
  if radiogroup1.itemindex<>i then showmessage('you bad');
  end;
end;

Answer 2

上面代码给错
下面的正确procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.RadioGroup1.ItemIndex<0 then showmessage('you ....');
end;

Answer 3

你默认让RadioGroup1.ItemIndex>0就行了，要不你就在radiogrouop的onexit事件里写判断语句！
有问题请发信息到我的E-mail:[email protected]

Answer 4

for i:=0 to 2 do
if radiogroup1.itemindex=-1 then showmessage('ok');