![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Компонент 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; В этом случае в конструкторе объектов следует каждой кнопке назначить этот обработчик. Замечание. Первоначальное состояние кнопок можно установить с помощью конструктора объектов.
|