Faire une Étiquette Visible/Non Visible dans Delphi

Je voudrais un bouton pour modifier une étiquette entre le fait d'être visible et non visible lorsque l'utilisateur clique dessus. J'ai Essayé le code suivant, mais il ne marche pas:

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;

Il compile, mais ne fonctionne pas!

  • Si ce n'est Caché est VRAI lorsque vous entrez ce code, vous allez faire Label6 visible, alors vous allez faire Hidden = Flase, alors vous allez tester si Caché est faux (et c'est, vous venez de faire Faux), et puis vous allez faire Label6.Visible = False et Hidden=true à nouveau.
InformationsquelleAutor chendriksen | 2010-03-27