我的Bug ? Delphi的Bug ?(25分)

C

Carem

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #1

目的：希望点击选定，之后执行
GroupBox5.Enabled :=true;
button5.Enabled :=true;
再次点击（取消选定）之后执行
GroupBox5.Enabled :=false;
button5.Enabled :=false;


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
GroupBox5.Enabled :=true;
button5.Enabled :=true;

if checkbox1.Checked=false then
GroupBox5.Enabled :=false;
button5.Enabled :=false;

end;
问题：
点击CheckBox的时候他只可以执行ｉｆ后面的第一个语句，之后的（button5.Enabled :=true;　　button5.Enabled :=false;）完全
不执行，我写错了？还是不允许这样用？还是真的是Bug ??请指教！

 

S

SeaHawk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #2

你跟踪过代码的执行情况吗？
应该是这样写吧：
if checkbox1.Checked=true then
begin
GroupBox5.Enabled :=true;
button5.Enabled :=true;
end;
if checkbox1.Checked=false then
begin
GroupBox5.Enabled :=false;
button5.Enabled :=false;
end;

 

Y

youngyxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #3

if checkbox1.Checked=true then
begin
GroupBox5.Enabled :=true;
button5.Enabled :=true;
end;
if checkbox1.Checked=false then
begin
GroupBox5.Enabled :=false;
button5.Enabled :=false;
end;

 

L

liuyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #4

of course your BUG

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #5

基本的语法问题，呵呵

 

T

t365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #6

 

Y

yanglih

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #7

这样岂不是更简单？
GroupBox5.Enabled :=checkbox1.Checked;
button5.Enabled :=checkbox1.Checked;

 

佛

佛法无边

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #8

重新学习pascal去

 

C

Carem

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #9

我一直都是自己学的，从来没有人教过我，我根本没有学过pascal,错了有什么奇怪的？干吗要这样骂人啊！
骂人的都是，没文化的家伙!