Компонента TCheckBox

Этот компонент предназначен для включения в интерфейс программы зависимых переключателей. Управлять переключателями можно либо с помощью клавиатуры, либо мыши. Компонент TRadioButton имеет свойство Checked, предназначенное либо для включения переключателя, либо для проверки его состояния.

Текст, который должен быть записан рядом с кнопкой указывается в свойстве Caption. Где располагать текст: справа или слева указывается в свойстве Alignment.

Переключатель обрабатывает событие от мыши и клавиатуры. При включении и выключении кнопки происходит событие OnClick, в котором можно предусмотреть необходимые действия.

Пример

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Button1: TButton;

Panel1: TPanel;

Panel2: TPanel;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Panel1.Color:= clRed;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Panel1.Color:= clYellow;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

Panel1.Color:= clGreen;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked then Panel2.Color:= clRed;

if RadioButton2.Checked then Panel2.Color:= clYellow;

if RadioButton3.Checked then Panel2.Color:= clGreen;

end;

end.

Второй вариант может быть, когда создается один обработчик для всех трех кнопок:

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if (Sender as TRadiobutton) = RadioButton1 then

Panel1.Color:= clRed;

if (Sender as TRadiobutton) = RadioButton2 then

Panel1.Color:= clYellow;

if (Sender as TRadiobutton) = RadioButton3 then

Panel1.Color:= clGreen;

end;

В этом случае в конструкторе объектов следует каждой кнопке назначить этот обработчик.

Замечание. Первоначальное состояние кнопок можно установить с помощью конструктора объектов.

Это кнопка с независимой фиксацией. Такой компонент обладает следующими свойствами:

Allignment:= (taLeftJustify, taRightJustify); – с помощью этого свойства можно задавать положение текста относительно кнопки.

Checked – это свойство логического типа, с помощью которого можно определять включена или выключена кнопка.

If CheckBox1.Checked then Label1.Caption:= ‘Кнопка включена’;

State – определяет состояние выключателя. Может принимать следующие значения:

cbChecked -- включено

cbUnChecked -- выключено

cbGrayed – нейтральное положение

Как правило, используются выключатели с двумя состояниями: включено или выключено. Чтобы использовать выключатель с тремя состояниями необходимо использовать свойство AllowGrayed. Если AllowGrayed = true – 3 положения,

AllowGrayed = false – 2 положения.

Выключатель Checkbox обрабатывает все события от мыши и клавиатуры, а также событие активизации и снятия активизации (onEnter, onExit).

Дата добавления: 2014-01-07