Delphiでチェックボックスを使用するには？

Question

は今のところ、私はコードを持っている：

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

をし、それは、コードの残りの部分に続きます。それが正しい方法ですか、それとも間違っているのですか？

Answer 1

あなたが提案するのは、チェックボックスがオンになっているかどうかを判断する完全な合法的な方法です。そうするコードは、ちょうどあなたが値を取得するときに、Checkedプロパティから取得した値は、現時点では、チェックボックスの状態に対応していることを覚えておいてください

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 

などのように見えるかもしれません。

Answer 2

あなたは2 if文を使用しているので、あなたも1にそれらを組み合わせることがあります

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

if文（checkbox1.Checked）の第二の部分のみが評価される最初の評価された場合真になる（デルファイはShort-circuit evaluationを使用しているため）

Answer 3

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