Компонент TRadioButton

Этот компонент предназначен для включения в интерфейс программы зависимых переключателей. Управлять переключателями можно либо с помощью клавиатуры, либо мыши. Компонент 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;

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

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