procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if form1.RadioButton1.Checked:=true then
form1.SpeedButton1.Enable:=true(初始为false)
else
form1.SpeedButton1.Enable:=false;
end; procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if form1.RadioButton2.Checked:=true then
form1.SpeedButton.Enable:=true(初始为false)
else
form1.SpeedButton.Enable:=false;
end;运行后发现两个speedbutton的属性Enable无法切换.正确的切换方法我现在知道了,想问问这段代码有什么问题?谢谢解答!!!
begin
if form1.RadioButton1.Checked:=true then
form1.SpeedButton1.Enable:=true(初始为false)
else
form1.SpeedButton1.Enable:=false;
end; procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if form1.RadioButton2.Checked:=true then
form1.SpeedButton.Enable:=true(初始为false)
else
form1.SpeedButton.Enable:=false;
end;运行后发现两个speedbutton的属性Enable无法切换.正确的切换方法我现在知道了,想问问这段代码有什么问题?谢谢解答!!!
begin
SpeedButton1.Enable:= form1.RadioButton1.Checked;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
SpeedButton2.Enable:= RadioButton2.Checked;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
SpeedButton1.Enable:= form1.RadioButton1.Checked;
SpeedButton2.Enable:= form1.RadioButton2.Checked;end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
SpeedButton1.Enable:= form1.RadioButton1.Checked;
SpeedButton2.Enable:= RadioButton2.Checked;
end;