TToggleBox

Einleitung

Die Beispiel Software zum Thema TToogleBox könnt ihr euch hier herunterladen. Eine TToggleBox ist ein Einschalter und Ausschalter der beim einmaligen Klick auf dem Stand stehen bleibt. Ähnlich wie bei einem Stromschalter für das Wohnzimmer, dass beim einmaligen einschalten an bleibt, bleibt auch unsere TToggleBox beim Schalten auf den Einschaltzustand oder Ausschaltzustand stehen.

Video Tutorial TToggleBox

Dies Video kann in Ihrem Browser nicht wiedergegeben werden.
Eine Download-Version steht unter Link-Addresse zum Abruf bereit.

Teil 01: TToggleBox – Beispiel 01 Teil 01

In Beispiel 01 beschreibe ich wie man ein TEditfeld mit zwei TToggleBox Button beeinflussen kann. Ich gehe hier auch zwei unterschiedliche Eigenschaften ein. Für jeden der beiden TToggleBox Button gibt es eine Funktion.

Quellcode:

Abb. 1.01 Quellcode TToggleBox Beispiel 1 Teil 01

Mit der IF Abfrage fragen wir den Zustand der TToggleBox TTBSichtbar.checked ab.
Ist dieser wahr (true), dann setze die Beschriftung (Caption) der TToggleBox auf >>unsichtbar<< und die Eigenschaft visible des Editfeldes TEdtEdit1 auf false.
Ist das unwahr dann setze die Beschriftung (Caption) der TToggleBox auf >>sichtbar<< und die Eigenschaft visible des Editfeldes TEdtEdit1 auf true.

Quellcode Prozedur 2:

Abb. 1.02 Quellcode TToggleBox Beispiel 1 Teil 02

Im zweiten Teil unseres ersten Beispiels läuft es genau gleich ab wie im ersten Teil. Wir fragen wieder den Zustand checked ab und aktivieren oder deaktivieren das Editfeld.

Teil 02: TToogleBox – Beispiel 01 Teil 02

In Beispiel zwei gibt es ein Anwendungsbeispiel. Hier könnt ihr z.B. die IP Adresse oder den Hostnamen von einem IT System anzeigen lassen. In diesem Beispiel ist es die IP Adresse und der Hostname meines mobilen Computers.

Abb. 1.03 Quellcode TToggleBox Beispiel 2

Die eigentliche Abfrage ist wieder wie in unserem ersten Beispiel. Nur das wir die Eigenschaft Text des Editfeldes beeinflussen.

Teil 03: Quellcode Im Überblick:

procedure TForm1.TTBSichtbarClick(Sender: TObject);
begin
// Beispiel 01 Teil 01
if TTBSichtbar.Checked = true then
begin
TTBSichtbar.Caption := 'unsichtbar';
TEdtEdit1.visible := false;
end
else
begin
TTBSichtbar.Caption := 'sichtbar';
TEdtEdit1.visible := true;
end;
end;

procedure TForm1.TTBAktivClick(Sender: TObject);
begin
// Beispiel 01 Teil 02
if TTBAktiv.Checked = true then
begin
TTBAktiv.Caption := 'Aktiv';
TEdtEdit1.enabled := false;
end
else
begin
TTBAktiv.Caption := 'inAktiv';
TEdtEdit1.enabled := true;
end;
end;

procedure TForm1.TTBHostOrIPClick(Sender: TObject);
begin
// Beispiel 02 Teil 01
if TTBHostOrIP.Checked = false then
begin
TTBHostOrIP.Caption := 'Hostname';
TEdtHostOrIP.text := 'AndreMobil';
end
else
begin
TTBHostOrIP.caption := 'IP Adresse';
TEdtHostOrIP.text := '192.168.178.55';
end;
end;