Question

delphi编写记事本遇到问题

if n21.Checked =true then
begin
n21.Checked :=false;
memo1.ScrollBars :=ssBoth; //更换为横、纵向滚动条
end
else
n21.Checked:=true;
memo1.ScrollBars:=ssVertical; //更换为纵向滚动条

为什么换为纵向滚动条后,再单击菜单就换不回去了.
语句改成这样问题就解决了
if n21.Checked =true then
n21.Checked :=false

else
n21.Checked:=true;

if memo1.ScrollBars=ssVertical then
memo1.ScrollBars:=ssboth
else
memo1.ScrollBars:=ssVertical;

Answer 1

if n21.Checked =true then
begin
n21.Checked :=false;
memo1.ScrollBars :=ssBoth; //更换为横、纵向滚动条
end
else
begin
n21.Checked:=true;
memo1.ScrollBars:=ssVertical; //更换为纵向滚动条
end;

这么改