- •Задание 1.2. Исследуем компонент RadioGroup1
- •Задание 1.3 Изучим полезный оператор With … do.
- •Задание 1.4 Используя данные свойства, запрограммируем щелчок на Button3 так, чтобы отменить выбор всех кнопок с зависимой фиксацией в RadioGroup1.
- •Задание 2.3 Изменим вид отображения компонента DateTimePicker1, при щелчке на CheckBox1.
- •Задание 2.6 Пусть при щелчке на UpDown1 в CheckListBox1 напротив текстовых значений (строк) ставится галочка, а во всех остальных её не будет.
- •Задание 2.8 Рассмотрим компонент генерирующий стандартную анимацию при копировании файлов, поиске файлов, очистки корзины и т.Д.
- •Задание 2.9 Кратко рассмотрим компонент OleContainer1
Задание 2.6 Пусть при щелчке на UpDown1 в CheckListBox1 напротив текстовых значений (строк) ставится галочка, а во всех остальных её не будет.
На самом деле фактически обрабатывать будем значение в Edit1.text
Напишите в обработчике события изменения значения в Edit1 (данное событие называется onChange) следующее:
var i:integer;
begin
With CheckListBox1 do
for i:=0 to Items.Count-1 do Checked[i]:=false; // устанавливаем все строки в
// невыделенное состояние
CheckListBox1.Checked[StrToInt(Edit1.Text)]:=true; // ставим галочку напротив
CheckListBox1.Selected[StrToInt(Edit1.Text)]:=true; // выделяем строку
end;
Запустите программу. Убедитесь в правильности работы программы. Вернитесь в режим программирования.
Задание 2.7 Пусть компонент ColorBox1 меняет цвет компонента–таблицы StringGrid1.
Напишите в обработчике ColorBox1Change следующее:
StringGrid1.Color:=ColorBox1.Selected;
Здесь свойство Selected определяет текущий выбранный цвет в ColorBox1.
Запустите программу. Убедитесь в правильности работы программы. Вернитесь в режим программирования.
Задание 2.8 Рассмотрим компонент генерирующий стандартную анимацию при копировании файлов, поиске файлов, очистки корзины и т.Д.
Переместите на форму 6 компонентов Animate из палитры Win32. Поместите их рядом. Установите следующие значения:
Компонент |
Свойство |
Значение свойства |
Animate1 |
CommonAvi |
aviCopyFile |
Animate2 |
CommonAvi |
aviDeleteFile |
Animate3 |
CommonAvi |
aviEmptyRecycle |
Animate4 |
CommonAvi |
aviFindComputer |
Animate5 |
CommonAvi |
aviFindFile |
Animate6 |
CommonAvi |
aviFindFolder |
Рис. 7 Выше описанное приложение в режиме работы
А в обработчике щелчка на Button2 напишите:
Animate1.Play(1,1000,10); Animate2.Play(1,1000,10); Animate3.Play(1,1000,10);
Animate4.Play(1,1000,10); Animate5.Play(1,1000,10); Animate6.Play(1,1000,10);
Запустите программу. Убедитесь в правильности работы программы. Вернитесь в режим программирования.
Задание 2.9 Кратко рассмотрим компонент OleContainer1
Щелкните правой кнопкой на компоненте OleContainer1. Выберите вкладку Insert Object, появится стандартное диалоговое окно выбора для вставки объекта, выберите например точечный рисунок.
Рис. 8 Применение технологии OLE с использованием компонента OleContainer
Затем запустите программу. Еще раз правой кнопкой щелкните на компоненте OleContainer1 и выберите вкладку Открыть. Откроется стандартное приложение Microsoft Paint, нарисуйте там что-нибудь и сохраните. Вернитесь в режим программирования.
Данный компонент использует OLE технологию, позволяющую связывать и внедрять объекты из одного приложения в другое.
автор и разработчик лабораторных
работ по Delphi
доцент кафедры Информационных технологий и систем
кандидат физ.-мат. наук
Санников Е.В.