delphi - 在 Delphi 中使标签可见/不可见

Question

我想要一个按钮来在单击时在可见和不可见之间更改标签。我尝试了以下代码，但它不起作用:

Var:
  Hidden : Boolean;
Begin
  If Hidden = True
    Then 
      Begin
        Label6.Visible := True;
        Hidden := False;
      End;
  If Hidden = False
    Then
      Begin
        Label6.Visible := False;
        Hidden := True;
      End;

它可以编译，但不起作用!

Answer 1

这样做:

 Label6.Visible := not Label6.Visible;

这就是您需要的全部代码。

此外，如果您要在代码中处理标签，请为其指定一个正确的识别名称(例如 lblCountOfMatches 或其他名称)。

最后，您的代码无法正常工作的原因是 Hidden 从未设置。声明时它将默认为 false。如果您想使用现在的代码(太冗长)，您必须发出:

 Hidden := Label6.Visible

在检查隐藏之前。