Delphi中如何使用复选框？

Question

现在，我有了代码：

begin
If odd(GetAsyncKeyState(VK_snapshot)) then
If CheckBox1.Checked then
begin

然后继续处理其余的代码。 这是正确的做法，还是我做错了？

Answer 1

您建议的是一种完全合法的方式来确定是否选中复选框。 执行此操作的代码可能类似于

if checkBox.Checked then begin
    //do whatever needed for checked checkbox
end

以下内容

if checkBox.Checked then begin
    //do whatever needed for checked checkbox
end else begin
    //do whatever needed for unchecked checkbox
end

只需记住，从 Checked 属性获取的值对应于获取该值时复选框的状态。

Answer 2

if DT.FieldByName('name_of_checkbox').AsBoolean=True then begin ..... end;
// In this case dt is TADOquery that you had used in your program.

Answer 3

由于您使用了 2 个 if 语句，因此您也可以将它们合并为一个：

if odd(GetAsyncKeyState(VK_snapshot)) and CheckBox1.Checked then
begin
  ...
  ...
end;

仅当第一个部分的计算结果为 True 时，才会计算 if 语句的第二部分 (checkbox1.Checked)。 （因为Delphi使用短路评估）