Question

delphi 里checkbox控件的问题，求助，急急急！

两个checkbox，分别chk1，chk2，一个按钮buttom，当按钮按下后，如果chk1和chk2都没有选，则跳出个窗口“您没有勾选！” 如果其中一个勾选了，就end。！！！！！！！！！！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if chk1.Checked and chk2.Checked then
  begin
    ShowMessage('两个都选了');
  end;
  if (not chk1.Checked) and (not chk2.Checked) then
  begin
    ShowMessage('两个都没选');
    Application.Terminate;
  end;
  if (chk1.Checked and (not chk2.Checked)) or ((not chk1.Checked) and chk2.Checked) then
  begin
    ShowMessage('只选了一个');
  end;
end;

Answer 2

就end是什么意思？

追问

结束啊

追答