delphi - 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 属性获取的值对应于您获取该值时复选框的状态。