delphi - 在Delphi中一次只选中一个复选框

Question

问题：我有两个复选框（一次只能选中一个）和一个编辑框。对于这两个复选框，选中它们时，编辑框中的值都必须更改为“ 0”，否则原始值将保留在编辑框中。以下是两个复选框的两个onclick事件。当我编写chkFacetoFace.checked：= false时，相应的onclick处理程序被调用，而我无法获得所需的结果。谁能帮我解决这个问题？

procedure TForm1.chkFacetoFaceClick(Sender: TObject);
begin
  if chkFacetoFace.Checked then
    begin
      edtConvFee.Text := '0.00';
      chkWaiveOff.Checked := False;
    end
    else
    begin
      edtConvFee.Text := '5.00';
    end;
end;

procedure TForm1.chkWaiveOffClick(Sender: TObject);
begin
  if chkWaiveOff.Checked then
    begin
      edtConvFee.Text := '0.00';
      chkFacetoFace.Checked := False;
    end
    else
    begin
      edtConvFee.Text := '5.00';
    end;
end;

Answer 1

正如TLama所说：


您可以临时取消分配OnClick处理程序。

EditBox.Text的值在非预期情况下设置。更改Checked之前，应同时选中Checkboxe的EditBox.Text状态。请参阅以下示例：


。

procedure TForm1.chkWaiveOffClick(Sender: TObject);
begin
  if chkWaiveOff.Checked then
  begin
    edtConvFee.Text := '0.00';
    chkFacetoFace.Checked := False;
  end
  else if not chkFaceToFace.Checked then // <-- additional check for the respective checkbox
  begin
    edtConvFee.Text := '5.00';
  end;
end;