Alternance du texte du bouton au clic

Lors du cours précédent, nous avons ajouté deux boutons : l’un change de texte au clic, l’autre ferme la fenêtre actuelle. Dans cette section, nous allons intégrer une logique un peu plus élaborée au premier bouton. À chaque clic, le texte alterne entre deux valeurs. Ce tutoriel vise principalement à maîtriser la syntaxe Pascal.

Ouvrons le projet réalisé précédemment

Vous pouvez modifier directement la fonction de gestion du clic dans le fichier pas, ou accéder à la fonction événementielle du premier bouton via la méthode ci-dessous.

Remplacez le code de la fonction événementielle par ce qui suit

procedure TForm1.Button1Click(Sender: TObject);
{ Utiliser la propriété Tag du bouton pour stocker l'état et basculer le texte }
begin
  // Vérifier la valeur du Tag : 0 = état initial, 1 = état basculé
  if Button1.Tag = 0 then
  begin
    Button1.Caption := 'Press again';  // Modifier le texte affiché du bouton
    Button1.Tag := 1;                  // Marquer l'état à 1
  end
  else
  begin
    Button1.Caption := 'Press';        // Restaurer le texte d'origine
    Button1.Tag := 0;                  // Réinitialiser le marqueur à 0
  end;
end;Langage du code : PHP (php)

Étapes pour accéder à l’événement du bouton

Ouvrez votre projet Lazarus enregistré, basculez sur la vue conception de Form1 et cliquez sur le bouton libellé Press (Button1) présent sur la fenêtre.

Le contrôle étant sélectionné, allez dans l’onglet Events (Événements) de l’Inspecteur d’objets (Object Inspector) situé à droite.

Repérez la ligne correspondant à l’événement OnClick. Cliquez sur le champ de saisie à sa droite, puis appuyez sur le bouton points de suspension ... à l’extrémité pour accéder automatiquement à la fonction dans l’éditeur de code.

Effacez l’ancien code, collez l’intégralité du code ci-dessous, enregistrez le projet, compilez puis lancez le programme. Cliquez sur le bouton pour faire alterner son texte.

1. Propriété Tag : propriété entière native de tous les contrôles de fenêtre, destinée à stocker des indicateurs numériques personnalisés. Nous n’utilisons ici que deux états : 0 et 1.
2. Premier clic : Tag=0 → le texte devient Press again, Tag prend la valeur 1
3. Second clic : Tag=1 → le texte revient à Press, Tag reprend la valeur 0
4. Des clics répétés font basculer le texte en permanence, produisant un effet d’interrupteur.

Le code ci-dessus utilise la propriété Tag du bouton pour conserver son état et réaliser l’alternance du texte.

Démonstration en fonctionnement