主题：刚开始学DELPHI的菜鸟题问
sun_906
[专家分：0] 发布于 2008-01-15 13:17:00
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=false then
bitbtn1.Enabled:=false ;
button1.Enabled:=true ;
if checkbox1.Checked=true then
bitbtn1.Enabled:=true;
button1.Enabled:=false;
end;
为什么,我执行的时候,BUTTON1,始终为false.
回复列表 （共5个回复）
沙发
sun_906 [专家分：0] 发布于 2008-01-16 09:17:00
帮个忙啊，有没有人清楚．
板凳
wealthy [专家分：1840] 发布于 2008-01-16 09:44:00
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=false then
begin
bitbtn1.Enabled:=false ;
button1.Enabled:=true ;
end else if checkbox1.Checked=true then
begin
bitbtn1.Enabled:=true;
button1.Enabled:=false;
end;
end;
3 楼
长尾兔 [专家分：3630] 发布于 2008-01-17 17:30:00
简单一点写可以这样：
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
BitBtn1.Enabled := CheckBox1.Checked;
Button1.Enabled := not CheckBox1.Checked;
end;
4 楼
JayNet [专家分：0] 发布于 2008-01-17 20:58:00
[quote]简单一点写可以这样：
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
BitBtn1.Enabled := CheckBox1.Checked;
Button1.Enabled := not CheckBox1.Checked;
end;
[/quote]
高
5 楼
sun_906 [专家分：0] 发布于 2008-01-18 15:12:00
确实水平高,不服不行.
我来回复
您所在位置：