Элементы группировки объектов

В языках визуального программирования имеются элементы группировки элементов. В Delphi к таким относятся:

· Panel, toolbar- служит для создания панелей инструментов. Обычно для создания панелей инструментов используют кнопка SpeedButton.

Рис.35.

Для создания панелей инструментов имеется специальный компонент ToolBar, назначение которого только создание панелей инструментов. Поэтому элемент Panel можно устанавливать в любой позиции формы и собрать на ней различные элементы.

Для выравнивания элемента ToolBar как и других визуальных элементов используются значения свойства Align: AlTop – выравнивание по верху окна;

AlButtom – выравнивание по нижнему краю окна;

AlLeft – выравнивание по левому краю окна;

AlRight – выравнивание по правому краю окна;

AlСlient – выравнивание по всей форме;

AlNone – без выравнивания.

Посмотрите на заготовку:

Рис.36.

Первый элемент Toolbar выровнен по верхнему краю, а второй - по нижнему.

{Код заполнения элемента ComboBox экранными шрифтами}

procedure TForm1.FormCreate(Sender: TObject);

begin

Combobox1.Items:=screen.fonts;

Combobox1.Text:=screen.fonts[1];

end;

· GroupBox позволяет группировать различные элементы управления (см. рис.37.).

· RadioGroup служит для группировки радиокнопок (option button) (см. рис.38.).

Рис.37. Рис.38.

Рассмотрим пример использования элементов группировки для создания различных опций визуальных элементов.

Рис.39.

Приведем код модуля.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

RadioGroup1: TRadioGroup;

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Edit1: TEdit;

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked=true then edit1.Font.Style:=[fsitalic];

if checkbox1.Checked=false then edit1.Font.Style:=[];

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if checkbox2.Checked=true then

begin

if checkbox1.Checked=true then edit1.Font.Style:=[fsbold,fsitalic];

if checkbox1.Checked=false then edit1.Font.Style:=[fsbold];

end;

if checkbox2.Checked=false then

begin

if checkbox1.Checked=true then

edit1.Font.Style:=[fsitalic];

if checkbox1.Checked=false then edit1.Font.Style:=[];

end;

end;

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

if checkbox3.Checked=true then edit1.Font.Style:=[fsUnderline];

if checkbox3.Checked=false then edit1.Font.Style:=[];

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

edit1.Font.Color:=rgb(0,0,250);

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

edit1.Font.Color:=rgb(250,0,0);

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

edit1.Font.Color:=rgb(0,250,0);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

Вопросы и упражнения.

1. Создайте панели инструментов, подобных панелям инструментов МsWord.

2. Напишите программу, которая вычисляет поределителя 2, 3, 4, 5 порядка. Для выбора порядка определителя используйте элемент RadioGroup.

3. Напишите программу для сортировки массива по неубыванию методом вставок, обменами, методом подсчета. Выбор метода закрепите за радиокнопками.

4. Изучите свойства оконтовки элементов группировки объектов.

5. Изучите свойства расположения(Allign) элементов группировки объектов.

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