Практичне заняття № 6
Тема: Об’єкти середовища Delphi. Смуга прокрутки.
Мета: Ознайомити студентів з компонентами середовища Delphi. Розглянути компонент ScrollBar. Закріпити отримані знання на практиці.
Література
М.С.Львов, О.В.Співаковський. Основи алгоритмізації та програмування. Навчальний посібник – Херсон, 1997. – 122с.
Львов М.С., Співаковський О.В. Вступ до обєктно-орієнтованого програмування.–Херсон:ХДПУ.-240 с.
Фаронов В.В. Delphi 6.Учебний курс.-М.:Издатель Молгачева С.В.,-672с.,ил.
Т.Бадд.. Объектно-ориентированное программирование в действии / пер. с англ. - СПб.:Питер, 1997.- 464 с. ил.
http://www.programmersclub.ru/book/ - електронні підручники по Delphi
http://pitbooks.ru/delphi/ - електронні підручники по Delphi
Завдання для виконання
Створити програму, що виконує наступні дії:
1. Після запуску програми у вікні зображується дві смуги прокрутки. Вертикальна смуга буде керувати рухом по вертикалі, горизонтальна - по горизонталі.
2. Наводячи курсор миші на одну з двох фігур, можна вибирати, яка з цих фігур пов'язана з смугами прокрутки.
3. Потрібні додаткові об'єкти, за допомогою яких обмежується область руху фігур у вікні.
4. Якщо смуга прокрутки активна, то вона повинна реагувати на клавіші ВВЕХ, ВНИЗ, ВЛІВО, ВПРАВО, PAGE UP, PAGE DOWN.
5. Для виходу з програми необхідно натиснути мишею на закриваючій кнопці в рядку заголовка.
Опис плану розробки програми
1. Відкрити новий проект.
2. Розмістити на формі екземпляри компонентів: панель Panel, смуга прокрутки ScrollBar, фігура Shape.
3
.
Ввести додаткову
змінну
логічного
типу num.
Якщо вона
приймає
значення
True (Так),
то поточної
вважається
перша фігура.
Значенню
False (Ні)
відповідає
друга фігура.
Ця змінна
повинна бути доступна
у всіх
процедурах.
4.
Виконати наступні дії:
Таблиця 1.
П
родовження
Таблиці 1
Збережіть програму та протестуйте її.
Лістинг підпрограми
procedure TForm1.ScrollBar1Change (Sender: TObject);
begin
if num then Shape1.Left := ScrollBar1.Position
else Shape2.Left := ScrollBar1.Position
end;
procedure TForm1.ScrollBar2Change (Sender: TObject);
begin
if num then Shape1.Top := ScrollBar2.Position
else Shape2.Top := ScrollBar2.Position
end;
procedure TForm1.Shape1MouseMove
(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Shape1.Brush.Color := clAgua;
Shape1.Brush.Color := clFuchsia;
Num := True;
ScrollBar1.Position:= Shape1.Left;
ScrollBar2.Position:= Shape1.Top;
end;
procedure TForm1. Shape2MouseMove
(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Shape2.Brush.Color := clFuchsia;
Shape2.Brush.Color := clAgua;
Num := False;
ScrollBar1.Position:= Shape2.Left;
ScrollBar2.Position:= Shape2.Top;
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
num := True;
end;
Практичне заняття № 7
Тема: Випадковий вибір. Використання списків.
Мета: Ознайомити студентів з поняттям випадкового вибору. Розглянути компонент ComboBox для роботи зі списками. Закріпити отримані знання на практиці.