如何让checkbox不可改变check,但是不是灰色的？

Question

3x

Answer 1

var
  Form1: TForm1;
  v_f:boolean;implementation{$R *.dfm}procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  CheckBox1.Checked:=v_f;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  v_f:=CheckBox1.Checked;
end;當點擊CheckBox1時﹐不改變CheckBox1.Checked就可以了啊

Answer 2

procedure TForm1.CheckBox1Click(Sender: TObject);
var TemClick: Procedure(Sender: TObject) Of Object;
begin
  TemClick:=CheckBox1.OnClick;
  CheckBox1.OnClick:=nil;
  checkbox1.Checked:= not CheckBox1.Checked;
  CheckBox1.OnClick:=TemClick;
end;

Answer 3

需要這么痲煩？
直接在checkbox1change(Sender :TObject)裏麵寫
checkbox1.check :=false;

Answer 4

你们的delphi什么版本？readonlycheckbox1change(Sender :TObject)
我怎么都没有？

Answer 5

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
     CheckBox1.Checked := False;
end;

Answer 6

西西
投机但有效的方法：
把CHECKBOX放在一个PANEL上
PANEL的ENBALED：=FALSE；
注意只要把PANEL的BEVELINNER和BEVELOUTER设置NONE
就好拉

Answer 7

让checkbox不可改变check,但不是灰色的？
————————————————————
不行？不可能！我和bbs791109(小别) 的方法都行！
除非你的问题没说清楚

Answer 8

lxl(蚊蚊)的方法也行但是这不是一个程序员的方法

Answer 9

CheckBox1.Checked := False;这样不行？？