Кнопка с рисунком. Создание формы для изменения иконки и стиля формы
Цель занятия: Изучение свойств и методов объекта «графическая кнопка».
Графическая кнопка – это кнопка, которая имеет связанное с ней изображение в стандарте BitMap (файл .bmp)
Для выполнения задания необходимо: поместить на форму компонент класса TBitBtn (со страницы Additional)
-Измените свойство Caption добавленного объекта на ВЫХОД.
-Выберите свойство Glyph, отобразится маленькая кнопка с тремя точками.
-В появившемся диалоговом окне нажмите Load для загрузки графического изображения. Выберите необходимый рисунок по вашему выбору. Выбранный рисунок появится на кнопке.
-Добавьте процедуру на нажатие кнопки:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
MessageDlg('Выход из программы', mtInformation, [mbOK],0);
form1.Close;
end;
-Измените программу таким образом, чтобы она отображала сообщение «Я программирую в среде Delphi».
-Добавьте ещё одну кнопку класса TBitBtn. Измените свойство Kind на bkClose. Данная операция гарантирует, что после нажатия на данную кнопку произойдёт закрытие формы без написания программы для этого.
ЗАДАНИЕ: Создание формы для изменения иконки и стиля формы
Для выполнения задания необходимо:
- поместить на форму компонент класса TGroupBox, измените свойство NAME на gbBorderIcons; свойство Caption на BorderIcons;
- В область компонента класса TGroupBox поместите четыре (4) компонента класса TCheckBox, измените свойство Name добавленных компонентов на cbSystemMenu, cbMinimize, cbMaximize, cbHelp; свойство Caption на cbSystemMenu, biMinimize, biMaximize, biHelp. Измените свойство Checked на True.
- Компонент класса TRadioGroup, измените свойство Name на rgBorderStyle, свойство Caption на BorderStyle, свойство Items на: bsNone, bsSingle, bsSizable bsDialog, bsToolWindow, bsSizeToolWin
Для события выбора кнопки cbMinimize напишите процедуру:
procedure TForm1.cbMinimizeClick(Sender: TObject);
var
IconSet: TBorderIcons; // Переменная, чтобы провести значения
begin
IconSet := []; // Пустой набор
if cbSystemMenu.Checked then
IconSet := IconSet + [biSystemMenu]; // Добавление кнопки biSystemMenu
if cbMinimize.Checked then
IconSet := IconSet + [biMinimize]; // Добавление кнопки biMinimize
if cbMaximize.Checked then
IconSet := IconSet + [biMaximize]; // Добавление кнопки biMaximize
if cbHelp.Checked then
IconSet := IconSet + [biHelp];
BorderIcons := IconSet; // Назначить результат на форму
end;
Остальные кнопки класса TCheckBox свяжите с написанной процедурой.
Для события выбора одной из радиокнопок группы напишите процедуру:
procedure TForm1.rgBorderStyleClick(Sender: TObject);
begin
BorderStyle := TBorderStyle (rgBorderStyle.ItemIndex);
end;
ВОПОСЫ:
Свойства и методы компонента класса TBitBtn. Отличие от других кнопок, используемых в Delphi.
Как на кнопку компонента класса TBitBtn добавить свой рисунок.
Создание программы – простейший калькулятор.
Цель занятия: Создание программы калькулятор на языке программирования Delphi.
З
АДАЧА.
Поместить на форму компоненты: Edit1,
Edit2,
Edit3;
8 компонентов класса TButton,
label1,
label2.
Расположите их следующим образом:
Организовать работу следующим образом:
если, например, необходимо подсчитать
сумму двух чисел, то записываем первое
число в Edit1,
второе – в Edit2.
Нажимаем на кнопку ‘+’ и результат
сложения помещается в Edit3,
а в метке Label1
отображается значок ‘+’.
Решение:
-
помещаем
компоненты на форму;
-располагаем компоненты согласно образцу;
-изменяем свойство ActiveControl для формы на Edit1;
-изменяем свойство Caption для кнопок Button, согласно образцу;
-изменяем свойство Text для компонентов Edit1, Edit2, Edit3 на пустое значение;
-изменяем свойство Caption компонента label2 на значок ‘=’;
-необходимо написать программу, в результате которой происходит сложение двух чисел в Edit1 и Edit2, результат сложения помещается в Edit3, а в метке Label1 отображается значок ‘+’.
Для этого необходимо написать процедуру:
procedure TForm1.Button4Click(Sender: TObject);
begin label1.Caption:='+';
edit3.Text:=IntToStr (StrToInt (edit1.Text)+StrToInt (edit2.Text));
end;
-необходимо написать программу, в результате которой происходит очищение полей ввода Edit1, Edit2, Edit3.
Для этого необходимо написать процедуру:
procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
form1.ActiveControl:=edit1;
end;
-самостоятельно написать программу для кнопок ‘-‘, ‘/’, ‘mod’, ‘div’, ‘*’.
Примечание: в программе для кнопки ‘/’ учитывать, что на 0 делить нельзя.
-для кнопки Button8 написать программу для закрытия формы.
ВОПРОСЫ:
Использование функций IntToStr и StrToInt.
Использование функций FloatToStr и StrToFloat.
Операторы mod и div. Назначение операторов.