TToggleBox
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
>> LCL Components >> TToggleBox
This page explains how to use the TToggleBox component. When I mention to click on something, unless I explicitly say to right-click, you always left-click on the item in question.
Description
A labelled box capable of being checked or unchecked. It is similar to a TButton, but it is enabled or disabled with a single click.
Usage
To use a TToggleBox on a form, you can simply select it on the Standard component pallet and place it by clicking on the form.
Anywhere in your source code, you can check the status, whether active or inactive, by query Status := <ToggleBox>.Checked;
. You can use Checked as a normal Boolean. Thus, even an assignment, <ToggleBox>.Checked := True;
, is possible.
A simple example:
-- in progress --Michl 13:46, 20 May 2014 (CEST)
- 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:
See also
TButton - Usage of Buttons
TCheckBox - Usage of CheckBoxes
TRadioButton - Usage of RadioButtons
Return To: LCL Components | — Previous: TMemo | Next: TCheckBox |
--Michl 13:46, 20 May 2014 (CEST)