Difference between revisions of "TToggleBox/de"
m (→Verwendung) |
m (→Verwendung) |
||
Line 24: | Line 24: | ||
** Gehen Sie in den Objektinspektor auf den Reiter Ereignisse, wählen Sie das Ereignis ''OnClick'' und wählen daneben in der Combobox ''ToggleBox1Click'' aus. | ** Gehen Sie in den Objektinspektor auf den Reiter Ereignisse, wählen Sie das Ereignis ''OnClick'' und wählen daneben in der Combobox ''ToggleBox1Click'' aus. | ||
** Jetzt wählen Sie ''ToggleBox3'' auf Ihrem Formular an und verfahren, wie eben mit ''ToggleBox2''. | ** Jetzt wählen Sie ''ToggleBox3'' auf Ihrem Formular an und verfahren, wie eben mit ''ToggleBox2''. | ||
− | * Lassen Sie im Eventhandler ''OnClick'' der ToggleBoxen die Farben des Formulars, gemäß ''<ToggleBox>.Checked'', ändern | + | * Lassen Sie im Eventhandler ''OnClick'' der ToggleBoxen die Farben des Formulars, gemäß ''<ToggleBox>.Checked'', ändern: |
<syntaxhighlight> | <syntaxhighlight> | ||
procedure TForm1.ToggleBoxClick(Sender: TObject); | procedure TForm1.ToggleBoxClick(Sender: TObject); | ||
Line 30: | Line 30: | ||
aColor: TColor; | aColor: TColor; | ||
begin | begin | ||
− | aColor:=0; | + | aColor:=0; //Hintergrundfarbe von Form1 wird entsprechend der Toggleboxen festgelegt |
if ToggleBox1.Checked then aColor:=aColor + $0000FF; | if ToggleBox1.Checked then aColor:=aColor + $0000FF; | ||
if ToggleBox2.Checked then aColor:=aColor + $00FF00; | if ToggleBox2.Checked then aColor:=aColor + $00FF00; | ||
if ToggleBox3.Checked then aColor:=aColor + $FF0000; | if ToggleBox3.Checked then aColor:=aColor + $FF0000; | ||
− | + | Color := aColor; //die Änderung der Eigenschaft <Formular>.Color bewirkt ein Neuzeichnen des Formulars | |
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> |
Revision as of 11:15, 20 May 2014
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
Diese Seite erklärt, wie man die TToggleBox Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.
Beschreibung
Ein Schriftfeld, das aktiviert oder deaktiviert ist. Es ähnelt einem TButton, allerdings wird es mit einem Klick aktiviert oder deaktiviert.
Verwendung
Um eine TToggleBox auf einem Formular zu nutzen, kann man es einfach auf der Komponentenpalette Standard auswählen und mit einem Klick auf das Formular platzieren.
Sie können überall in Ihrem Quellcode den Status der ToggleBox, ob aktiv oder inaktiv, mit Status := <ToggleBox>.Checked;
abfragen. Dabei können Sie Checked wie ein normalen Boolean benutzen. Somit ist auch die Zuweisung <ToggleBox>.Checked := True;
möglich.
Ein einfaches Beispiel:
- Erstellen Sie eine neue Anwendung und legen Sie auf dem Formular drei TToggleBoxen ab.
- Ändern Sie die Captions von ToggleBox1..3 zu "Rot", "Gruen" und "Blau".
- Erstellen Sie einen Onklick-Eventhandler für eine der ToggleBoxen z.B.
procedure ToggleBox1Click(Sender: TObject);
und verbinden Sie die anderen ToggleBoxen ebenfalls mit dieser:- Wählen Sie ToggleBox1 auf Ihrem Formular an.
- Gehen Sie in den Objektinspektor auf den Reiter Ereignisse, wählen Sie das Ereignis OnClick und klicken Sie auf den Button [...].
- Es wird die Procedure ToggleBox1Click erstellt.
- Jetzt wählen Sie ToggleBox2 auf Ihrem Formular an.
- Gehen Sie in den Objektinspektor auf den Reiter Ereignisse, wählen Sie das Ereignis OnClick und wählen daneben in der Combobox ToggleBox1Click aus.
- Jetzt wählen Sie ToggleBox3 auf Ihrem Formular an und verfahren, wie eben mit ToggleBox2.
- Lassen Sie im Eventhandler OnClick der ToggleBoxen die Farben des Formulars, gemäß <ToggleBox>.Checked, ändern:
procedure TForm1.ToggleBoxClick(Sender: TObject);
var
aColor: TColor;
begin
aColor:=0; //Hintergrundfarbe von Form1 wird entsprechend der Toggleboxen festgelegt
if ToggleBox1.Checked then aColor:=aColor + $0000FF;
if ToggleBox2.Checked then aColor:=aColor + $00FF00;
if ToggleBox3.Checked then aColor:=aColor + $FF0000;
Color := aColor; //die Änderung der Eigenschaft <Formular>.Color bewirkt ein Neuzeichnen des Formulars
end;
- Starten Sie Ihr Programm, es sollte ungefähr so aussehen:
Siehe auch
TButton - Verwendung von Buttons
TCheckBox - Verwendung von CheckBoxen
TRadioButton - Verwendung von RadioButtons
Gehe zurück zu: LCL Components | — Komponente zuvor: TMemo/de | Nächste Komponente: TCheckBox/de |
--Michl 22:03, 19 May 2014 (CEST)