我有一个弹出菜单,其中有一个名为 "Ativar" 的项目,但我不明白为什么这段代码不起作用:
procedure TForm6.Ativar1Click(Sender: TObject);
begin
if ativar1.Caption='Ativar' then
begin
showmessage('Initialize procedure');
ativar1.Caption:='Desativar';
end else
if ativar1.Caption='Desativar' then
begin
showmessage('Initialize procedure');
ativar1.Caption:='Ativar';
end;
end;
我认为编写代码时应该对对象的标题属性进行验证,如果它等于"启用",则激活并显示消息,并将标题属性更改为"禁用",而当标题属性等于"禁用"时,则显示消息并再次将属性更改为"启用"。那么问题出在哪里呢?