- •1. Открыть новый проект.
- •1. Открыть новый проект.
- •2. Разместить на форме экземпляры компонентов: метку Label и кнопку Button.
- •3. Выполнить следующие действия:
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •4. Выполнить следующие действия:
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •7. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •14. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •4. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •1. Открыть новый проект.
- •3. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •1. Открыть новый проект.
- •5. Выполнить следующие действия:
- •6. Сохраните проект, запустите и протестируйте его.
- •1. Открыть новый проект.
- •3. Выполнить следующие действия:
- •Задания
- •6. Пример 1. Допустим, нужно создать программу, которая складывает две строки. Для этого:
- •7. Пример 2. Допустим, нужно составить программу, которая складывает два целых числа. Для этого:
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: командная кнопка Button, движок TrackBar, рамка GroupBox, надпись Label, флажок CheckBox.
3. Выполнить следующие действия:
Таблица 12.
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Forml |
Properties |
Caption |
Установка имени формы "Таблица умножения" |
TrackBarl (Вкладка Win32) |
Properties |
Min (Минимум) |
Присвоить значение 2 |
Max (Максимум) |
Присвоить значение 99 |
||
Position (Положение) |
Присвоить значение 2 |
||
LineSize (Малое изменение) |
Присвоить значение 1 |
||
PageSize (Постраничное изменение) |
Присвоить значение 7 |
||
Frequency (Частота засечек) |
Присвоить значение 7 |
||
Events |
OnChange |
Label1.Caption := IntToStr(TrackBar1.Position); Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked then TrackBar2.Position :=TrackBar1.Position; |
Продолжение таблицы 12.
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
TrackBar2 (Вкладка Win32) |
Properties |
Min (Минимум) |
Присвоить значение 2 |
Max (Максимум) |
Присвоить значение 99 |
||
Position (Положение) |
Присвоить значение 2 |
||
LineSize (Малое изменение) |
Присвоить значение 1 |
||
PageSize (Постраничное изменение) |
Присвоить значение 7 |
||
Frequency (Частота засечек) |
Присвоить значение 7 |
||
Events |
OnChange |
Label2.Caption := IntToStr(TrackBar2.Position); Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked then TrackBar1.Position := TrackBar2.Position; |
|
GroupBoxl (Вкладка Standard) |
Properties |
Caption |
Ввести подпись "Произведение" |
Labell (Вкладка Standard) |
Properties |
AutoSize (Автоподбор) |
Установить значение False |
Caption |
Присвоить значение 2 |
||
Alignment (Выравнивание) |
Установить значение taRightJustify (Выравнивание по правому краю) |
||
Label2 (Вкладка Standard) |
Properties |
AutoSize |
Установить значение False |
Caption |
Присвоить значение 2 |
||
Alignment |
Установить значение taRightJustify (Выравнивание по правому краю) |
||
Label3 (Вкладка Standard) |
Properties |
AutoSize |
Установить значение False |
Caption |
Присвоить значение 4 |
||
Alignment |
Установить значение taRightJustify (Выравнивание по правому краю) |
||
CheckBoxl (Вкладка Standard) |
Properties |
Caption |
Ввести подпись "Квадрат" |
Alignment |
Установить значение taLefttJustify (Выравнивание по левому краю) |
||
Events |
OnClick |
TrackBar2.Position := TrackBar1.Position; |