3. Висновок

ЛАБОРАТОРНЕ ЗАНЯТТЯ №_11____

Модуль (тема): події миші та їх обробка

Мета: навчитися складати та налагоджувати програми по обробці подій миші

Оснащення: персональний комп’ютер, середовище програмування Delphi

План проведення лабораторного заняття:

• опитування;

• виконання роботи за індивідуальними завданнями.

Питання для вхідного контролю:

1. визначити призначення подій миші:

• OnClick;

• OnDblClick;

• OnMouseDown;

• OnMouseUp;

• OnMouseMove.

Домашнє завдання:

Л1,с.278 - 279

Інструкція проведення лабораторної роботи

МЕТА РОБОТИ: навчитися будувати програми по обробці подій миші

НЕОБХІДНЕ ОБЛАДНАННЯ: 1) Комп’ютер IBM PC/AT

1. Скорочені теоретичні відомості

Визначені п’ять подій, які пов’язані з мишею:

• OnClick – настає при клацанні мишею на компоненті;

• OnDblClick - настає при двійному клацанні мишею на компоненті;

• OnMouseDown – настає при натисканні кнопки миші на компоненті;

• OnMouseMove – настає при переміщені курсору миші на компоненті;

• OnMouseUp - настає при відпусканні раніше натиснутої кнопки миші на компоненті;

Обробники даних подій (наприклад, для компонента Label1) мають вигляд:

• procedure TForm1.Label1Click(Sender: TObject);

• procedure TForm1.Label1DblClick(Sender: TObject);

• procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

• procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

• procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

Параметр Button обробника подій миші визначає натиснуту в цей момент кнопку миші и може приймати такі значення:

• mbLeft – ліва кнопка миші;

• mbRight – права кнопка миші;

• mbMiddle – середня кнопка миші.

Параметр Shift визначає, які допоміжні клавіші на клавіатурі натиснуті в момент натискання кнопки миші і може приймати такі значення:

• ssShift – клавіша Shift;

• ssAlt – клавіша Alt;

• ssCtrl – клавіша Ctrl;

• ssLeft – ліва кнопка миші;

• ssRight – права кнопка миші;

• ssMiddle – середня кнопка миші;

• ssDouble – одночасно натиснуті ліва и права клавіші миші.

Параметри X и Y – поточні координати курсору миші.

Приклад 1. При клацанні на формі правою кнопкою миші при натиснутій лівій закривався додаток.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if (Button=mbRight) and (ssLeft in Shift) then form1.close

end;

2. Хід роботи:

20. постанова задачі;

21. проектування форми;

22. побудова проекту.

3. Висновок

ЛАБОРАТОРНЕ ЗАНЯТТЯ №_12____

Модуль (тема): події клавіатури та їх обробка

Мета: навчитися складати та налагоджувати програми по обробці подій клавіатури

Оснащення: персональний комп’ютер, середовище програмування Delphi

План проведення лабораторного заняття:

• опитування;

• виконання роботи за індивідуальними завданнями.

Питання для вхідного контролю:

2. визначити призначення подій клавіатури:

• OnKeyDown;

• OnKeyPress;

• OnKeyUp

Домашнє завдання:

Л1,с. 279- 280

Інструкція проведення лабораторної роботи

МЕТА РОБОТИ: навчитися будувати програми по обробці подій клавіатури

НЕОБХІДНЕ ОБЛАДНАННЯ: 1) Комп’ютер IBM PC/AT