Сегодня знакомимся с компанентами Делфи. Постараюсь сделать сегодняшний урок в виде маленькой шпаргалочки. На будущее. :)
На закладке Standard расположены элементы: Frames, MainMenu, PopupMenu, Label, Edit, Memo, Button, CheckBox, RadioButton,
ListBox, ComboBox, ScrollBar, GroupBox, RadioGroup, Panel и ActionList. Вот, кажись ничего не забыл :)
С Label, Edit и Button мы познакомились на первом уроке. Давайте приступим к дальнейшему знакомству.
1. Memo.
Mногострочное окно редактирования используется для ввода, отображения и редактирования многострочных текстов.
Вводить текст можно программно, а можно дать эту возможность пользователю. Давайте разместим Memo на форму.
Далее в Object Inspector'e (далее OI) выбираем свойство Lines и жмем на кнопку с тремя точками. В появившемся
окошке стираем "Memo1" и жмем Oк. Выбираем ScrollBars=ssVertical. Появится прокрутка строк. Из программы добавить
текст можно при помощи функции:
Memo1.Lines.Add('Text');
Стереть все:
Memo1.Clear;
Если надо сделать, чтобы пользователь не мог менять текст, надо написать(или изменить в OI):
Memo1.Enabled:=False;
Пока что все. Если что-то вспомню еще, добавлю. :)
2. CheckBox.
Индикатор с флажком, используемый для включения и выключения каких-то опций или для индикации состояния.
Давайте размести на форме 2 CheckBox'а. Давайте присвоим им значения:
CheckBox1:
Caption = 'Ж'
CheckBox2:
Caption = 'К'
Checked = True
Изменять значение флажка програмно:
CheckBox1.Checked:=True; // Установить флажок
CheckBox1.Checked:=False; // Снять флажок
3. RadioButton.
Компонент, который используется, как правило, в группе других радиокнопок для выбора одной из
взаимоисключающих альтернатив. Из кнопок, объединенных в группу, включена может быть только одна.
При включении одной кнопки группы остальные кнопки автоматически выключаются.
Разместите на форме 3 РадиоКнопки. С параметрами:
RadioButton1:
Caption = 14
Checked = True
RadioButton2:
Caption = 16
Checked = False
RadioButton3:
Caption = 18
Checked = False
4. ComboBox.
Отображает список строк в развернутом виде или в виде выпадающего списка, позволяет пользователю выбрать
из списка необходимую строку или задать в качестве выбора собственный текст.
Добавим на форму, и в свойствах Items введем 3 строчки:
'Один'
'Два'
'Три'
Выбор пользователя или введенный им текст можно определить по значению свойства Text. Индекс выбранного
пользователем элемента списка можно определить по свойству ItemIndex (доступно только во время выполнения).
Если в окне проводилось редактирование данных, то ItemIndex = -1.
Начальное значение ItemIndex невозможно задать во время проектирования. По умолчанию ItemIndex = -1. Если вы
хотите задать этому свойству какое-то другое значение, т.е. установить выбор по умолчанию, который будет
показан в момент начала работы приложения, то сделать это можно, например, в обработчике события OnCreate
формы, введя в него оператор вида: ComboBox1.ItemIndex:=0;
Первая строка, которую мы напрограмировали сегодня:
//-----------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.ItemIndex:=0;
end;
//-----------------------------------------------
Давайте добавим кнопку (Button). И свойства:
Button1:
Caption = 'Демо'
Вот и все в процессе объяснения мы создали заготовку для нашей программы! :)
Тыкаем два раза на кнопку, и пишем там код:
//-----------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear; // Очистили окошко
Memo1.Font.Style:=[]; // Убрали все параметры шрифта (жирный, курсив, и т.д.)
Memo1.Lines.Add(ComboBox1.Text); // Написали в окошке название шрифта
Memo1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex]; // Изменили шрифт в окошке на выбранный
if CheckBox1.Checked=True then Memo1.Font.Style:=[fsBold]; //Если выбран жирный, сделали шрифт жирным
if CheckBox2.Checked=True then Memo1.Font.Style:=Memo1.Font.Style+[fsItalic]; //Если выбран курсив, сделали шрифт курсивом
if RadioButton1.Checked=True then Memo1.Font.Size:=14; // Поменяли размер шрифта на выбранный
if RadioButton2.Checked=True then Memo1.Font.Size:=16; // Поменяли размер шрифта на выбранный
if RadioButton3.Checked=True then Memo1.Font.Size:=18; // Поменяли размер шрифта на выбранный
end;
//-----------------------------------------------
Чтобы все заработало, добавим в обработчик формы OnCreat код:
//-----------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items := Screen.Fonts; // Записали в менюшку, все шрифты установленные в Windows.
ComboBox1.ItemIndex:=0; // Написали в окошке имя первого шрифта (отсчет не с единици, а с нуля)
Form1.Caption:='Просмоторщик шрифтов.'; // Название проги
end;
//-----------------------------------------------
Все, тыкаем Ф9 и наслаждаемся! :)
На последок расскажу кое-что полезное о форме.
Давайте взглянем на Form1.BorderStyle в OI.
Эта функция может принимать значения: bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow и bsSizeToolWin.
Нас интересуют свойства формы: можно/нельзя пользователю менять размер формы(N1), есть/нет иконок свернуть, развернуть(N2).
Представлю все в табличке:
Параметр
N1
N2
bsDialog
Нет
Нет
bsNone
Нет
Нет
- тут вообще нет верхнего поля!
bsSingle
Нет
Да
bsSizeable
Да
Да
- по умолчанию, ставится этот параметр.
И еще, самая последняя фишка на сегодня, когда вы поставили bsNone и запустили программу на выполнение, то выйти из
программы можно тока нажав Alt+F4. Для того, чтоб можно было нормально выходить, поставим на форме кнопку, обзавем её
'Выход'(Button2.Caption), и в обработчике OnClick пишем строчку:
Close();
