Textwechsel der Schaltfläche per Klick

In der letzten Lektion haben wir zwei Schaltflächen hinzugefügt: Eine ändert beim Klick ihren Text, die andere schließt das aktuelle Fenster. In diesem Abschnitt implementieren wir eine etwas komplexere Logik für die erste Schaltfläche. Bei jedem Klick wechselt der Text hin und her. Hauptziel ist das Erlernen der Pascal-Syntax.

Öffnen wir das zuvor erstellte Projekt

Sie können die Klick-Ereignisfunktion direkt in der PAS-Datei bearbeiten oder über die unten beschriebene Methode zur Ereignisfunktion der ersten Schaltfläche navigieren.

Ersetzen Sie den Code der Ereignisfunktion durch folgenden Quelltext

procedure TForm1.Button1Click(Sender: TObject);
{ Nutze die Tag-Eigenschaft der Schaltfläche zur Speicherung des Zustands für Textwechsel }
begin
  // Prüfe den Tag-Wert: 0 = Standardzustand, 1 = umgeschalteter Zustand
  if Button1.Tag = 0 then
  begin
    Button1.Caption := 'Press again';  // Ändere angezeigten Text der Schaltfläche
    Button1.Tag := 1;                  // Markiere Zustand als 1
  end
  else
  begin
    Button1.Caption := 'Press';        // Ursprünglichen Text wiederherstellen
    Button1.Tag := 0;                  // Setze Markierung zurück auf 0
  end;
end;Code-Sprache: PHP (php)

Schritte zum Aufrufen der Schaltflächen-Ereignisfunktion

Öffnen Sie Ihr gespeichertes Lazarus-Projekt, wechseln Sie zur Form1-Designansicht und klicken Sie auf die Schaltfläche mit dem Text Press (Button1) im Formular.

Bei ausgewähltem Steuerelement wechseln Sie im rechten Objektinspektor (Object Inspector) zur Registerkarte Events (Ereignisse).

Suchen Sie das OnClick-Klickereignis, klicken Sie auf das Eingabefeld rechts daneben und anschließend auf die Schaltfläche mit den Punkten ... am Ende. Daraufhin springt der Editor automatisch zur passenden Funktion im Quellcode.

Löschen Sie den vorhandenen Code, fügen Sie den vollständigen Code unten ein, speichern Sie das Projekt, kompilieren und starten Sie das Programm. Beim Klicken auf die Schaltfläche wechselt der Text dauernd hin und her.

1. Tag-Eigenschaft: Eine integrierte Ganzzahl-Eigenschaft aller Formular-Steuerelemente zum Speichern benutzerdefinierter Zahlenmarkierungen. Wir verwenden hier nur zwei Zustände: 0 und 1.
2. Erster Klick: Tag=0 → Text wird zu Press again, Tag erhält den Wert 1
3. Zweiter Klick: Tag=1 → Text kehrt zu Press zurück, Tag wird auf 0 zurückgesetzt
4. Wiederholtes Klicken schaltet den Text ständig um und erzeugt einen Schalter-Effekt.

Der obige Code nutzt die Tag-Eigenschaft der Schaltfläche, um deren Zustand abzulegen und den Textwechsel zu realisieren.

Laufendes Beispiel

Textwechsel der Schaltfläche per Klick