チェックボックスを表示で使いたい

ポッター 2005-03-11 22:26:59 No: 13703

チェックボックスを表示として使いたいのですけど
できますでしょうか？

やり方
未チェックのチェックリストボックスに
項目をいくつか書いておきます．

クリックするとその項目の処理を行い。
処理が終わるとチェックを入れて終了します。

ここまでは間単に？
できました．

このチェックボックスのチェックはプログラムが終了するまで
そのままの状態にしておくため、
ユーザーがチェックボックスをクリックして
変更できないようにしたいのですが
可能でしょうか？

にしの 2005-03-11 23:21:11 No: 13704

パネルの中にチェックボックスを入れて、パネルのEnabledプロパティをFalseにすればできますよ。

無効ではマズイ？ 2005-03-11 23:23:35 No: 13705

チェックされた項目を無効にするだけでいいのなら、

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
  with CheckListBox1 do begin
    if Checked[ItemIndex] then ItemEnabled[ItemIndex] := False;
  end;
end;