财务软件版1楼: Check1.visible:=edit1.checked
上面实现的是选中CheckBox就显示控件edit
如果我要实现选中CheckBox就不显示控件，不选中CheckBox就显示控件呢？
谢谢大家

2楼: procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Edit1.Visible :=False
else
edit1.Visible :=True;
end; 如excel制作进销存

3楼: edit1.visible:= not Check1.checked

4楼: edit1.Visible := not Check1.Checked;

5楼: Avalon手好快

6楼: 呵呵，你又跑到这来了.你上边的不对，因该是：edit1.visible := check1.checked;
这时是选中就显示，不选中就不显示。如果想选中时不显：edit1.visible := not check1.checked;

财务软件版7楼: 晕 前面有比我更快的啊

8楼: begin
if CheckBox.Checked=True then
Edit1.Visible:=False
else
Edit1.Visible:=True;
end;

9楼: 刚在csdn见过

10楼: Edit1.Visible:=not check1.checked;

11楼: 楼主现在脑子比较乱，就要学简单的
如果。。。
那么。。。

否则。。。

12楼: 上午大脑短路，辛苦大家了 如人力资源管理软件

13楼: 不辛苦
有钱拿，不辛苦

财务软件版14楼: 谢谢